* Missing semicolons.
This commit is contained in:
parent
528f1d1867
commit
397c8ba898
|
@ -52,10 +52,10 @@ foreach my $storepath (keys %storepaths2urls) {
|
||||||
my $hash = $urls2hashes{$url};
|
my $hash = $urls2hashes{$url};
|
||||||
my $fetch =
|
my $fetch =
|
||||||
"(import @datadir@/nix/corepkgs/fetchurl) " .
|
"(import @datadir@/nix/corepkgs/fetchurl) " .
|
||||||
"{url = $url; md5 = \"$hash\"; system = \"@system@\"}";
|
"{url = $url; md5 = \"$hash\"; system = \"@system@\";}";
|
||||||
my $nixexpr =
|
my $nixexpr =
|
||||||
"((import @datadir@/nix/corepkgs/nar/unnar.nix) " .
|
"((import @datadir@/nix/corepkgs/nar/unnar.nix) " .
|
||||||
"{narFile = ($fetch); outPath = \"$storepath\"; system = \"@system@\"}) ";
|
"{narFile = ($fetch); outPath = \"$storepath\"; system = \"@system@\";}) ";
|
||||||
$fullexpr .= $nixexpr; # !!! O(n^2)?
|
$fullexpr .= $nixexpr; # !!! O(n^2)?
|
||||||
push @storepaths, $storepath;
|
push @storepaths, $storepath;
|
||||||
}
|
}
|
||||||
|
@ -104,6 +104,6 @@ while (scalar @sucs > 0) {
|
||||||
if ($n > 256) { $n = 256 };
|
if ($n > 256) { $n = 256 };
|
||||||
my @sucs2 = @sucs[0..$n - 1];
|
my @sucs2 = @sucs[0..$n - 1];
|
||||||
@sucs = @sucs[$n..scalar @sucs - 1];
|
@sucs = @sucs[$n..scalar @sucs - 1];
|
||||||
system "nix-store --successor @sucs";
|
system "nix-store --successor @sucs2";
|
||||||
if ($?) { die "`nix-store --successor' failed"; }
|
if ($?) { die "`nix-store --successor' failed"; }
|
||||||
}
|
}
|
||||||
|
|
|
@ -45,7 +45,7 @@ foreach my $path (@paths) {
|
||||||
my $nixexpr =
|
my $nixexpr =
|
||||||
"((import @datadir@/nix/corepkgs/nar/nar.nix) " .
|
"((import @datadir@/nix/corepkgs/nar/nar.nix) " .
|
||||||
# !!! $path should be represented as a closure
|
# !!! $path should be represented as a closure
|
||||||
"{path = \"$path\"; system = \"@system@\"}) ";
|
"{path = \"$path\"; system = \"@system@\";}) ";
|
||||||
|
|
||||||
print NIX $nixexpr;
|
print NIX $nixexpr;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue