X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Data-Store.git;a=blobdiff_plain;f=lib%2FDBIx%2FData%2FStream%2FSTH.pm;h=c87a8d8e78ebf9744067c45a676ba88875cbd6af;hp=6a43b9946053927e225762459d8029ec5e70f978;hb=967a2b0478621cec2ec375cc75a32bc873e580ee;hpb=34b924ec9d5b4be02d6d7de4cfa36a41e212a6b6 diff --git a/lib/DBIx/Data/Stream/STH.pm b/lib/DBIx/Data/Stream/STH.pm index 6a43b99..c87a8d8 100644 --- a/lib/DBIx/Data/Stream/STH.pm +++ b/lib/DBIx/Data/Stream/STH.pm @@ -15,9 +15,8 @@ sub next { my $sth = (my $self = shift)->_sth; return unless $sth; # {Active} only means that there *may* be more results to fetch - if ($sth->{Active} and my @next = $self->sth->fetchrow_array) { - my %next; @next{@{$self->_column_order}} = @next; - return \%next; + if ($sth->{Active} and my @next = $sth->fetchrow_array) { + return [ @next ]; } $sth->finish; # prepare_cached might recycle it now we're finished so get rid of it