Author: timbo
Date: Mon Jul 16 06:07:00 2007
New Revision: 9744
Modified:
dbi/trunk/dbiprof.PL
dbi/trunk/dbixs_rev.h
dbi/trunk/lib/DBI/ProfileData.pm
dbi/trunk/lib/DBI/SQL/Nano.pm
Log:
Jul 03 Alexey Tourbin ( 32) [rt.cpan.org #27946] [PATCH] DBI/SQL/Nano.pm: do
not clobber $_
Jul 03 Alexey Tourbin ( 39) [rt.cpan.org #27947] [PATCH] DBI/ProfileData.pm:
do not clobber $_
Jul 03 Alexey Tourbin ( 42) [rt.cpan.org #27948] [PATCH] dbiprof: fixed $prof
and $opt_delete syntax
Modified: dbi/trunk/dbiprof.PL
==============================================================================
--- dbi/trunk/dbiprof.PL (original)
+++ dbi/trunk/dbiprof.PL Mon Jul 16 06:07:00 2007
@@ -32,6 +32,7 @@
'match=s' => \%match,
'exclude=s' => \%exclude,
'case-sensitive' => \$case_sensitive,
+ 'delete!' => \my $opt_delete,
) or exit usage();
sub usage {
@@ -64,7 +65,7 @@
# instantiate ProfileData object
my $prof = eval {
- $prof = DBI::ProfileData->new(
+ DBI::ProfileData->new(
Files => [EMAIL PROTECTED],
DeleteFiles => $opt_delete,
);
Modified: dbi/trunk/dbixs_rev.h
==============================================================================
--- dbi/trunk/dbixs_rev.h (original)
+++ dbi/trunk/dbixs_rev.h Mon Jul 16 06:07:00 2007
@@ -1 +1,2 @@
-#define DBIXS_REVISION 9659
+/* Mon Jul 16 12:10:43 2007 */
+#define DBIXS_REVISION 9743
Modified: dbi/trunk/lib/DBI/ProfileData.pm
==============================================================================
--- dbi/trunk/lib/DBI/ProfileData.pm (original)
+++ dbi/trunk/lib/DBI/ProfileData.pm Mon Jul 16 06:07:00 2007
@@ -229,6 +229,7 @@
$self->{_profiler} = $first if $keep;
# collect variables from the header
+ local $_;
while (<$fh>) {
chomp;
last unless length $_;
@@ -260,6 +261,7 @@
# build up node array
my @path = ("");
my (@data, $path_key);
+ local $_;
while (<$fh>) {
chomp;
if (/^\+\s+(\d+)\s?(.*)/) {
Modified: dbi/trunk/lib/DBI/SQL/Nano.pm
==============================================================================
--- dbi/trunk/lib/DBI/SQL/Nano.pm (original)
+++ dbi/trunk/lib/DBI/SQL/Nano.pm Mon Jul 16 06:07:00 2007
@@ -133,7 +133,7 @@
return [EMAIL PROTECTED];
}
sub parse_comma_list {[map{clean_parse_str($_)} split(',',shift)]}
-sub clean_parse_str { $_ = shift; s/\(//;s/\)//;s/^\s+//; s/\s+$//; $_; }
+sub clean_parse_str { local $_ = shift; s/\(//;s/\)//;s/^\s+//; s/\s+$//; $_; }
sub parse_values_list {
my($self,$str) = @_;
[map{$self->parse_value(clean_parse_str($_))}split(',',$str)]
