From: Matt S Trout <mst@shadowcat.co.uk>
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}