From: Johannes Plunien <plu@cpan.org>
Date: Sun, 2 Nov 2008 01:37:21 +0000 (+0100)
Subject: fixed next warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e28ac0a3d02846742fa0313bf2a046e449ea03e8;p=dbsrgits%2FDBIx-Class-Historic.git

fixed next warnings
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 6ca5a7d..353e2e1 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -1757,12 +1757,12 @@ sub deploy {
   foreach my $statement ( @statements ) {
     my $deploy = sub {
       my $line = shift;
-      next if($line =~ /^--/);
-      next if(!$line);
+      return if($line =~ /^--/);
+      return if(!$line);
 #      next if($line =~ /^DROP/m);
-      next if($line =~ /^BEGIN TRANSACTION/m);
-      next if($line =~ /^COMMIT/m);
-      next if $line =~ /^\s+$/; # skip whitespace only
+      return if($line =~ /^BEGIN TRANSACTION/m);
+      return if($line =~ /^COMMIT/m);
+      return if $line =~ /^\s+$/; # skip whitespace only
       $self->_query_start($line);
       eval {
         $self->dbh->do($line); # shouldn't be using ->dbh ?