Changeset 2475 for branches/release-39/lib/MT/ObjectDriver/Driver/DBI.pm

Timestamp:

06/02/08 02:15:39 (18 months ago)

Author:

fumiakiy

Message:

Group_by methods now returns an iterator that can be finished early. BugId:79888

Files:

• branches/release-39/lib/MT/ObjectDriver/Driver/DBI.pm (modified) (1 diff)

branches/release-39/lib/MT/ObjectDriver/Driver/DBI.pm

@@ -201 +201 @@
     my $i = 0;
     return sub {
+        if (@_ && ($_[0] eq 'finish')) {
+            if ($sth) {
+                $sth->finish;
+                $driver->end_query($sth);
+            }
+            undef $sth;
+            return;
+        }
+
         unless ($sth->fetch && defined $count && (!defined $limit || ($i < $limit))) {
             $sth->finish;