Subject: | [PATCH] DBI/ProfileData.pm: do not clobber $_ |
Date: | Tue, 3 Jul 2007 23:51:46 +0400 |
To: | bug-dbi [...] rt.cpan.org |
From: | Alexey Tourbin <at [...] altlinux.ru> |
---
lib/DBI/ProfileData.pm | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/lib/DBI/ProfileData.pm b/lib/DBI/ProfileData.pm
index 581637e..8899a7d 100644
--- a/lib/DBI/ProfileData.pm
+++ b/lib/DBI/ProfileData.pm
@@ -187,6 +187,7 @@ sub _read_header {
$self->{_profiler} = $first if $keep;
# collect variables from the header
+ local $_;
while (<$fh>) {
chomp;
last unless length $_;
@@ -206,6 +207,7 @@ sub _read_body {
# build up node array
my @path = ("");
my (@data, $index, $key, $path_key);
+ local $_;
while (<$fh>) {
chomp;
if (/^\+\s+(\d+)\s?(.*)/) {
--
1.5.1.2.GIT