Skip Menu |

This queue is for tickets about the DBI CPAN distribution.

Report information
The Basics
Id: 27947
Status: resolved
Priority: 0/
Queue: DBI

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] 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
Applied. Thanks!