Skip Menu |
 

This queue is for tickets about the libwww-perl CPAN distribution.

Report information
The Basics
Id: 25132
Status: resolved
Priority: 0/
Queue: libwww-perl

People
Owner: Nobody in particular
Requestors: at [...] altlinux.ru
Cc:
AdminCc:

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



Subject: [PATCH] LWP/Protocol/nntp.pm (request): do not clobber $_
Date: Sun, 25 Feb 2007 00:46:17 +0300
To: bug-libwww-perl [...] rt.cpan.org
From: Alexey Tourbin <at [...] altlinux.ru>
Download (untitled) / with headers
text/plain 433b
--- lib/LWP/Protocol/nntp.pm | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/lib/LWP/Protocol/nntp.pm b/lib/LWP/Protocol/nntp.pm index 2ce9e3e..c60a6e5 100644 --- a/lib/LWP/Protocol/nntp.pm +++ b/lib/LWP/Protocol/nntp.pm @@ -116,6 +116,7 @@ sub request # Parse headers my($key, $val); + local $_; while ($_ = shift @$art) { if (/^\s+$/) { last; # end of headers -- 1.5.0.1.GIT
Applied. In 5.806.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.