From: Rafael Kitover <rkitover@cpan.org>
Date: Tue, 29 Sep 2009 18:16:03 +0000 (+0000)
Subject: do not clobber $rv from execute_array
X-Git-Tag: v0.08113~32^2^2~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e63ff8ebef77ca59561ff543d1f448dbf9417bfb;p=dbsrgits%2FDBIx-Class.git

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
--- 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;