commit 100f9487f4d19e56fd21509ebd504edf5022f687
parent 2568459a7be7dc311bef9d774b05294272f3a152
Author: Oswald Buddenhagen <ossi@users.sf.net>
Date: Sat, 2 Nov 2013 16:43:23 +0100
sort messages by serial number instead of UID in box dumper
the input data is sorted that way, so it's easier to compare.
Diffstat:
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/run-tests.pl b/src/run-tests.pl
@@ -341,7 +341,7 @@ sub showbox($)
my ($mu, %ms) = readbox($bn);
print " [ $mu,\n ";
my $frst = 1;
- for my $num (sort {my ($ca, $cb) = ($ms{$a}[0], $ms{$b}[0]); ($ca?$ca:$a+1000) <=> ($cb?$cb:$b+1000)} keys %ms) {
+ for my $num (sort { $a <=> $b } keys %ms) {
if ($frst) {
$frst = 0;
} else {