[Bast-commits] r7744 - DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-09-29 18:16:03 +0000 (Tue, 29 Sep 2009)
New Revision: 7744

Modified:
   DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm
Log:
do not clobber $rv from execute_array

Modified: DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm	2009-09-29 17:36:20 UTC (rev 7743)
+++ DBIx-Class/0.08/branches/sybase_bulkinsert_support/lib/DBIx/Class/Storage/DBI.pm	2009-09-29 18:16:03 UTC (rev 7744)
@@ -1418,8 +1418,9 @@
     $placeholder_index++;
   }
 
-  my $rv = eval {
-    $sth->execute_array({ArrayTupleStatus => $tuple_status});
+  my $rv;
+  eval {
+    $rv = $sth->execute_array({ArrayTupleStatus => $tuple_status});
     $after_exec_cb->() if $after_exec_cb;
   };
   my $err = $@ || $sth->errstr;