![]() ![]() | ![]() |
version 1.16, 2003/07/16 13:14:12 | version 1.17, 2003/07/21 19:42:17 |
---|---|
Line 121 sub get_correct_order { | Line 121 sub get_correct_order { |
} | } |
@value_names = | @value_names = |
sort { | sort { |
if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] cmp $b->[0]);} | if (abs($a->[0] - $b->[0]) > $tol) {return ($a->[0] <=> $b->[0]);} |
return 0; | return 0; |
} @value_names; | } @value_names; |
my @value_names_tmp=@value_names; | my @value_names_tmp=@value_names; |