| Subject: | [PATCH] AppConfig/File.pm: localize $_ for while(<>) loop |
| Date: | Mon, 23 Oct 2006 05:02:57 +0400 |
| To: | bug-AppConfig [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
---
lib/AppConfig/File.pm | 1 +
1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/lib/AppConfig/File.pm b/lib/AppConfig/File.pm
index 520b445..fa298c1 100644
--- a/lib/AppConfig/File.pm
+++ b/lib/AppConfig/File.pm
@@ -159,6 +159,7 @@ sub parse {
# initialise $prefix to nothing (no [block])
$prefix = '';
+ local $_;
while (<$handle>) {
chomp;
--
1.4.3.GIT