Fixed sorting.
This commit is contained in:
parent
1f6d088c29
commit
63ae2664ec
1 changed files with 2 additions and 2 deletions
|
|
@ -31,8 +31,8 @@ while (my $line = <>) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
foreach my $key (sort { $a cmp $b } keys %history) {
|
foreach my $key (sort { $a <=> $b } keys %history) {
|
||||||
foreach my $cmd (keys %{$history{$key}}) {
|
foreach my $cmd (sort {$a cmp $b } keys %{$history{$key}}) {
|
||||||
print "#$key\n$cmd\n";
|
print "#$key\n$cmd\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue