import.
No more message about leak when the limit (given by the -l parameter)
is reached.
Signed-off-by: Yaacov Akiba Slama <redacted>
---
git-svnimport.perl | 12 ++++++------
1 files changed, 6 insertions(+), 6 deletions(-)
applies-to: 339bb970b075dfbbd321dcd817591cb739a29584
7410494b72db4c48a27d707a18168076e1b5a3dc
diff --git a/git-svnimport.perl b/git-svnimport.perl
index e97f470..ab690f3 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;
- }
}
---
0.99.9.GIT