Subject: | "indirect" leaking into LWP |
Date: | Fri, 16 Oct 2009 16:50:16 +0100 |
To: | bug-indirect [...] rt.cpan.org |
From: | Zefram <zefram [...] fysh.org> |
$ cat x0.pm
package x0;
no indirect 0.17 ":fatal";
use LWP::UserAgent ();
use parent "Exporter";
our @EXPORT_OK = qw(t0);
sub t0() {
my $resp = LWP::UserAgent->new->get("http://127.0.0.1/");
die "HTTP error @{[$resp->status_line]}" unless $resp->code == 200;
}
1;
$ perl -le 'use x0 qw(t0); t0()'
HTTP error 501 Indirect call of method "new" on object "HTTP::Response" at x0.pm line 8.
I have indirect version 0.19 installed, and this is Perl 5.10.
-zefram