re-commit minimal pk-mutation in update(), with test

[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / ResultSet.pm

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 32b42b5..61764b8 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -724,6 +724,7 @@ sub next {
   if ($self->{stashed_objects}) {
     my $obj = shift(@{$self->{stashed_objects}});
     delete $self->{stashed_objects} unless @{$self->{stashed_objects}};
+    return $obj;
   }
   my @row = (
     exists $self->{stashed_row}