parallel: sorting of multiple -a changed

This commit is contained in:
Ole Tange 2011-05-05 10:58:18 +02:00
parent a560a74b8a
commit 9b773d03f4

View file

@ -3989,7 +3989,7 @@ sub nest_get {
$self->unget([@first_arg_set]);
}
my @fh = @{$self->{'fhs'}};
for (my $fhno = 0; $fhno < $no_of_inputs; $fhno++) {
for (my $fhno = $no_of_inputs-1; $fhno >= 0; $fhno--) {
if(eof($fh[$fhno])) {
next;
} else {