develooper Front page | perl.libwww | Postings from July 2001

Re: Please help me :)

Thread Previous | Thread Next
From:
Barrie Slaymaker
Date:
July 30, 2001 18:47
Subject:
Re: Please help me :)
Message ID:
20010730065803.J3662@jester.slaysys.com
On Sun, Jul 29, 2001 at 05:09:23AM -0400, Scott R. Godin wrote:
> In article <001501c115a7$3916c5c0$017ba8c0@desktop>,
>  webmaster@lanetic.com (Lanetic) wrote:
> 
> I had this exact problem recently, and eventually tracked down the bug 
> to a very simple change in the latest LWP/URI info
> 
> line 85 has a \z instead of a \Z which is new to 5.6.x but doesn't exist 
> in 5.004
> 
> this change will enable it to work under 5.004
> 
>     sub implementor
>     {
>         my($scheme, $impclass) = @_;
>         if (!$scheme || $scheme !~ /\A$scheme_re\Z/o) {

Nit: You might want to replace \z with (?!\n)\Z instead of \Z so the
regexp match will fail if there's a trailing \n.

- Barrie

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About