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

[timbo]

Author: timbo
Date: Thu May  3 09:27:56 2007
New Revision: 9498

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

Log:
Fix forced_single_resultset


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:27:56 2007
@@ -440,15 +440,15 @@
 
         my $row_count = 0;
         my $rs_list = [];
-        RESULTSET: do {
+        while (1) {
             my $rs = $self->fetch_result_set($sth, $sth_attr);
             push @$rs_list, $rs;
             if (my $rows = $rs->{rowset}) {
                 $row_count += @$rows;
             }
-            last RESULTSET if $self->{forced_single_resultset};
-        } while $sth->more_results
-             || $sth->{syb_more_results};
+            last if $self->{forced_single_resultset};
+            last if !($sth->more_results || $sth->{syb_more_results});
+         }
 
         my $stats = $self->{stats};
         $stats->{rows_returned_total} += $row_count;