forked from lix-project/hydra
This commit is contained in:
parent
3c47a11bd9
commit
000fffeb11
|
@ -50,7 +50,7 @@ sub queryPathInfo {
|
|||
|
||||
close FH;
|
||||
|
||||
die unless defined $hash;
|
||||
die "path $path does not have a hash" unless defined $hash;
|
||||
|
||||
return ($hash, $deriver, \@refs);
|
||||
}
|
||||
|
|
|
@ -366,7 +366,6 @@ sub inputsToArgs {
|
|||
|
||||
sub permute {
|
||||
my @list = @_;
|
||||
print scalar @list, "\n";
|
||||
for (my $n = scalar @list - 1; $n > 0; $n--) {
|
||||
my $k = int(rand($n + 1)); # 0 <= $k <= $n
|
||||
@list[$n, $k] = @list[$k, $n];
|
||||
|
|
Loading…
Reference in a new issue