Skip Menu |

This queue is for tickets about the indirect CPAN distribution.

Report information
The Basics
Id: 50570
Status: resolved
Priority: 0/
Queue: indirect

People
Owner: Nobody in particular
Requestors: zefram [...] fysh.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: 0.20



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
Le Ven 16 Oct 2009 11:50:38, zefram@fysh.org a écrit : Show quoted text
> $ 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
Thanks for your report. I finally managed to fixed it in 0.20. Let's see if you can break it this time :) Vincent.