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 $cmd (keys %{$history{$key}}) {
|
||||
foreach my $key (sort { $a <=> $b } keys %history) {
|
||||
foreach my $cmd (sort {$a cmp $b } keys %{$history{$key}}) {
|
||||
print "#$key\n$cmd\n";
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue