[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