diff options
| -rwxr-xr-x | git-svnimport.perl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/git-svnimport.perl b/git-svnimport.perl index e97f47059..ab690f364 100755 --- a/git-svnimport.perl +++ b/git-svnimport.perl @@ -53,7 +53,6 @@ my $branch_name = $opt_b || "branches"; $opt_o ||= "origin"; $opt_s ||= 1; -$opt_l = 100 unless defined $opt_l; my $git_tree = $opt_C; $git_tree ||= "."; @@ -727,15 +726,16 @@ sub commit_all { } 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(); - 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; - } } |