* Fix for too long command lines when calling `nix-store

--register-[substitutes|successors].
This commit is contained in:
Martin Bravenboer 2003-12-04 14:38:31 +00:00
parent 00d4f907e1
commit feaab52203

View file

@ -139,11 +139,23 @@ $? == 0 or die "nix-instantiate failed";
# Register all substitutes. # Register all substitutes.
print STDERR "registering substitutes...\n"; print STDERR "registering substitutes...\n";
system "nix-store --substitute @subs"; while (scalar @subs > 0) {
if ($?) { die "`nix-store --substitute' failed"; } my $n = scalar @subs;
if ($n > 256) { $n = 256 };
my @subs2 = @subs[0..$n - 1];
@subs = @subs[$n..scalar @subs - 1];
system "nix-store --substitute @subs2";
if ($?) { die "`nix-store --substitute' failed"; }
}
# Register all successors. # Register all successors.
print STDERR "registering successors...\n"; print STDERR "registering successors...\n";
system "nix-store --successor @sucs"; while (scalar @sucs > 0) {
if ($?) { die "`nix-store --successor' failed"; } my $n = scalar @sucs;
if ($n > 256) { $n = 256 };
my @sucs2 = @sucs[0..$n - 1];
@sucs = @sucs[$n..scalar @sucs - 1];
system "nix-store --successor @sucs";
if ($?) { die "`nix-store --successor' failed"; }
}