From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Tue, 27 May 2014 16:37:21 +0000 (+0100)
Subject: Avoid clobbering caller's $_ (RT#96010)
X-Git-Tag: 0.07040~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e94175f234995abef9e4990f72db7f43112c7e23;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

Avoid clobbering caller's $_ (RT#96010)
---

diff --git a/Changes b/Changes
index 53ce400..a227517 100644
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@ Revision history for Perl extension DBIx::Class::Schema::Loader
         - Skip dumping unique indexes with expressions (RT#93613)
         - Fix dumping unique indexes with DBD::Pg < 1.50
 	- Fix inconsistent naming of duplicate unique constraints
+        - Avoid clobbering caller's $_ (RT#96010)
 
 0.07039  2014-01-06
         - Fix table listing with DBD::DB2 >= 1.85 (RT#91764)
diff --git a/lib/DBIx/Class/Schema/Loader/Base.pm b/lib/DBIx/Class/Schema/Loader/Base.pm
index 03ccea6..47f9a6b 100644
--- a/lib/DBIx/Class/Schema/Loader/Base.pm
+++ b/lib/DBIx/Class/Schema/Loader/Base.pm
@@ -2218,6 +2218,7 @@ sub _parse_generated_file {
         qr{^(# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:)([A-Za-z0-9/+]{22})\r?\n};
 
     my ($md5, $ts, $ver, $gen);
+    local $_;
     while(<$fh>) {
         if(/$mark_re/) {
             my $pre_md5 = $1;