| 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> |
---
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