This commit is contained in:
Eelco Dolstra 2009-04-25 11:27:46 +00:00
parent 3c47a11bd9
commit 000fffeb11
2 changed files with 1 additions and 2 deletions

View file

@ -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);
} }

View file

@ -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];