cvs import: Call git-update-cache multiple times

instead of with a too-long argument list.
This commit is contained in:
Matthias Urlichs 2005-06-30 11:55:57 +02:00
Родитель 6c9a0dc2b5
Коммит 4abdecbf85
1 изменённых файлов: 22 добавлений и 4 удалений

Просмотреть файл

@ -397,10 +397,28 @@ my($patchset,$date,$author,$branch,$ancestor,$tag,$logmsg);
my(@old,@new);
my $commit = sub {
my $pid;
system("git-update-cache","--force-remove","--",@old) if @old;
die "Cannot remove files: $?\n" if $?;
system("git-update-cache","--add","--",@new) if @new;
die "Cannot add files: $?\n" if $?;
while(@old) {
my @o2;
if(@old > 55) {
@o2 = splice(@old,0,50);
} else {
@o2 = @old;
@old = ();
}
system("git-update-cache","--force-remove","--",@o2);
die "Cannot remove files: $?\n" if $?;
}
while(@new) {
my @n2;
if(@new > 55) {
@n2 = splice(@new,0,50);
} else {
@n2 = @new;
@new = ();
}
system("git-update-cache","--add","--",@n2);
die "Cannot add files: $?\n" if $?;
}
$pid = open(C,"-|");
die "Cannot fork: $!" unless defined $pid;