| Subject: | [PATCH] DBI/SQL/Nano.pm: do not clobber $_ |
| Date: | Tue, 3 Jul 2007 23:51:28 +0400 |
| To: | bug-dbi [...] rt.cpan.org |
| From: | Alexey Tourbin <at [...] altlinux.ru> |
---
lib/DBI/SQL/Nano.pm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lib/DBI/SQL/Nano.pm b/lib/DBI/SQL/Nano.pm
index ff37815..944182d 100644
--- a/lib/DBI/SQL/Nano.pm
+++ b/lib/DBI/SQL/Nano.pm
@@ -133,7 +133,7 @@ sub parse_coldef_list { # check column definitions
return \@col_defs;
}
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)]
--
1.5.1.2.GIT