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