[Bast-commits] r7184 - DBIx-Class/0.08/branches/prefetch_redux/t/lib/DBIC

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-08-03 15:24:41 +0000 (Mon, 03 Aug 2009)
New Revision: 7184

Modified:
   DBIx-Class/0.08/branches/prefetch_redux/t/lib/DBIC/SqlMakerTest.pm
Log:
Use goto to preserve correct error-at-line reporting

Modified: DBIx-Class/0.08/branches/prefetch_redux/t/lib/DBIC/SqlMakerTest.pm
===================================================================
--- DBIx-Class/0.08/branches/prefetch_redux/t/lib/DBIC/SqlMakerTest.pm	2009-08-03 13:16:10 UTC (rev 7183)
+++ DBIx-Class/0.08/branches/prefetch_redux/t/lib/DBIC/SqlMakerTest.pm	2009-08-03 15:24:41 UTC (rev 7184)
@@ -41,7 +41,8 @@
   croak "Unexpected argument(s) supplied to is_same_sql_bind: " . join ('; ', @_)
     if @_;
 
-  SQL::Abstract::Test::is_same_sql_bind (@args);
+  @_ = @args;
+  goto &SQL::Abstract::Test::is_same_sql_bind;
 }
 
 *is_same_sql = \&SQL::Abstract::Test::is_same_sql;