From: Matt S Trout Date: Mon, 13 Nov 2006 03:30:19 +0000 (+0000) Subject: make multi-return actually work X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0d05aa8a374a216d5c224cfc2272ad38bda96322;p=dbsrgits%2FDBIx-Class-Historic.git make multi-return actually work --- diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm index 32b42b5..61764b8 100644 --- 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}