[Bast-commits] r7317 - DBIx-Class/0.08/trunk/t/lib

ribasushi at dev.catalyst.perl.org ribasushi at dev.catalyst.perl.org
Thu Aug 13 06:12:29 GMT 2009


Author: ribasushi
Date: 2009-08-13 06:12:08 +0000 (Thu, 13 Aug 2009)
New Revision: 7317

Modified:
   DBIx-Class/0.08/trunk/t/lib/DBICTest.pm
Log:
Last bit

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest.pm	2009-08-13 05:42:51 UTC (rev 7316)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest.pm	2009-08-13 06:12:08 UTC (rev 7317)
@@ -135,7 +135,7 @@
         close IN;
         for my $chunk ( split (/;\s*\n+/, $sql) ) {
           if ( $chunk =~ / ^ (?! --\s* ) \S /xm ) {  # there is some real sql in the chunk - a non-space at the start of the string which is not a comment
-            $schema->storage->dbh->do($chunk) or print "Error on SQL: $chunk\n";
+            $schema->storage->dbh_do(sub { $_[1]->do($chunk) }) or print "Error on SQL: $chunk\n";
           }
         }
     }




More information about the Bast-commits mailing list