do not clobber $rv from execute_array

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 6a36a6d..f31706d 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -1418,8 +1418,9 @@ sub _execute_array {
     $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;