[Treebase-guts] SF.net SVN: treebase:[155] trunk/treebase-core/src/main/perl/dump/sqldump

[<mjd...@us...>]

Revision: 155
          http://treebase.svn.sourceforge.net/treebase/?rev=155&view=rev
Author:   mjdominus
Date:     2009-07-01 21:00:18 +0000 (Wed, 01 Jul 2009)

Log Message:
-----------
bug fix

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/dump/sqldump

Modified: trunk/treebase-core/src/main/perl/dump/sqldump
===================================================================
--- trunk/treebase-core/src/main/perl/dump/sqldump	2009-07-01 20:56:13 UTC (rev 154)
+++ trunk/treebase-core/src/main/perl/dump/sqldump	2009-07-01 21:00:18 UTC (rev 155)
@@ -178,7 +178,8 @@
 	    my $percent = int(0.5 + $count / $total_records * 100);
             print STDERR "\r$percent%" if $percent ne $old_percent;
 	    $old_percent = $percent;
-	    last if defined($nrecs) && ++$rows_printed >= $nrecs;
+	    ++$rows_printed;
+	    last if defined($nrecs) && $rows_printed >= $nrecs;
         }
     }
 
@@ -186,7 +187,8 @@
     else {
         while ( $row = $sth->fetchrow_arrayref ) {
             $dumper->rec(@$row);
-	    last if defined($nrecs) && ++$rows_printed >= $nrecs;
+	    ++$rows_printed;
+	    last if defined($nrecs) && $rows_printed >= $nrecs;
         }
     }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.