[svn:dbi] r9496 - dbi/trunk/lib/DBI/Gofer

[timbo]

Author: timbo
Date: Thu May  3 09:02:03 2007
New Revision: 9496

Modified:
   dbi/trunk/lib/DBI/Gofer/Execute.pm

Log:
Fix Exiting ... via last warning.


Modified: dbi/trunk/lib/DBI/Gofer/Execute.pm
==============================================================================
--- dbi/trunk/lib/DBI/Gofer/Execute.pm  (original)
+++ dbi/trunk/lib/DBI/Gofer/Execute.pm  Thu May  3 09:02:03 2007
@@ -440,13 +440,13 @@
 
         my $row_count = 0;
         my $rs_list = [];
-        do {
+        RESULTSET: do {
             my $rs = $self->fetch_result_set($sth, $sth_attr);
             push @$rs_list, $rs;
             if (my $rows = $rs->{rowset}) {
                 $row_count += @$rows;
             }
-            last if $self->{forced_single_resultset};
+            last RESULTSET if $self->{forced_single_resultset};
         } while $sth->more_results
              || $sth->{syb_more_results};