Lift the default limit of number of revs.

Now that the leak is gone, there is by default no limit of revisions to
import.  No more message about leak when the limit (given by the -l
parameter) is reached.

Signed-off-by: Yaacov Akiba Slama <ya@slamail.org>
Signed-off-by: Junio C Hamano <junkio@cox.net>

diff --git a/git-svnimport.perl b/git-svnimport.perl
index e97f47059fda6cf058e43f2b77ff784ed2b5ee13..ab690f36432f7b99302f1d5fb764e6b0ee94b8e1 100755 (executable)
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -53,7 +53,6 @@ END
 
 $opt_o ||= "origin";
 $opt_s ||= 1;
 
 $opt_o ||= "origin";
 $opt_s ||= 1;

-$opt_l = 100 unless defined $opt_l;

 my $git_tree = $opt_C;
 $git_tree ||= ".";
 
 my $git_tree = $opt_C;
 $git_tree ||= ".";
 


@@ -727,15 +726,16 @@ sub commit_all {
 }
 
 while(++$current_rev <= $svn->{'maxrev'}) {
 }
 
 while(++$current_rev <= $svn->{'maxrev'}) {

+       if (defined $opt_l) {
+               $opt_l--;
+               if ($opt_l < 0) {
+                       last;
+               }
+       }

        my $pool=SVN::Pool->new;
        $svn->{'svn'}->get_log("/",$current_rev,$current_rev,1,1,1,\&_commit_all,$pool);
        $pool->clear;
        commit_all();
        my $pool=SVN::Pool->new;
        $svn->{'svn'}->get_log("/",$current_rev,$current_rev,1,1,1,\&_commit_all,$pool);
        $pool->clear;
        commit_all();

-       if($opt_l and not --$opt_l) {
-               print STDERR "Stopping, because there is a memory leak (in the SVN library).\n";
-               print STDERR "Please repeat this command; it will continue safely\n";
-               last;
-       }

 }
 
 
 }