X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=git-svnimport.perl;h=b6799d81ee36f041ddf3d6233d3f2fa005fea174;hb=d366c7037679794edff38cdbc422997607aca5f1;hp=6e3a44a2bc9fbf170db45a7e390d6ac8ffbb6f02;hpb=2961e0ee8b3c49853f2da4b485d4e3851e973e9d;p=git.git

diff --git a/git-svnimport.perl b/git-svnimport.perl
index 6e3a44a2..b6799d81 100755
--- a/git-svnimport.perl
+++ b/git-svnimport.perl
@@ -546,23 +546,30 @@ sub commit {
 			}
 		}
 
-		if(@old) {
-			open my $F, "-|", "git-ls-files", "-z", @old or die $!;
-			@old = ();
+		while(@old) {
+			my @o1;
+			if(@old > 55) {
+				@o1 = splice(@old,0,50);
+			} else {
+				@o1 = @old;
+				@old = ();
+			}
+			open my $F, "-|", "git-ls-files", "-z", @o1 or die $!;
+			@o1 = ();
 			local $/ = "\0";
 			while(<$F>) {
 				chomp;
-				push(@old,$_);
+				push(@o1,$_);
 			}
 			close($F);
 
-			while(@old) {
+			while(@o1) {
 				my @o2;
-				if(@old > 55) {
-					@o2 = splice(@old,0,50);
+				if(@o1 > 55) {
+					@o2 = splice(@o1,0,50);
 				} else {
-					@o2 = @old;
-					@old = ();
+					@o2 = @o1;
+					@o1 = ();
 				}
 				system("git-update-index","--force-remove","--",@o2);
 				die "Cannot remove files: $?\n" if $?;