Factored common cdbi rel features out into Relationship:: packages

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Cursor.pm

diff --git a/lib/DBIx/Class/Cursor.pm b/lib/DBIx/Class/Cursor.pm
index 753b6bc..b0565d1 100644 (file)
--- a/lib/DBIx/Class/Cursor.pm
+++ b/lib/DBIx/Class/Cursor.pm
@@ -47,7 +47,10 @@ sub next {
     $self->{live_sth} = 1;
   }
   my @row = $self->{sth}->fetchrow_array;
-  return unless @row;
+  unless (@row) {
+    $self->{sth}->finish if $self->{sth}->{Active};
+    return;
+  }
   $self->{pos}++;
   return $self->{class}->_row_to_object($self->{cols}, \@row);
 }