bugfixes, tweaks, map support

[dbsrgits/DBIx-Data-Store.git] / lib / DBIx / Data / Stream / STH.pm

diff --git a/lib/DBIx/Data/Stream/STH.pm b/lib/DBIx/Data/Stream/STH.pm
index 6a43b99..c87a8d8 100644 (file)
--- 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