sort messages by serial number instead of UID in box dumper
the input data is sorted that way, so it's easier to compare.
This commit is contained in:
parent
2568459a7b
commit
100f9487f4
|
@ -341,7 +341,7 @@ sub showbox($)
|
||||||
my ($mu, %ms) = readbox($bn);
|
my ($mu, %ms) = readbox($bn);
|
||||||
print " [ $mu,\n ";
|
print " [ $mu,\n ";
|
||||||
my $frst = 1;
|
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) {
|
if ($frst) {
|
||||||
$frst = 0;
|
$frst = 0;
|
||||||
} else {
|
} else {
|
||||||
|
|
Loading…
Reference in New Issue
Block a user