Fixed sorting.

This commit is contained in:
Bradley M. Kuhn 2010-03-30 12:27:22 -04:00
parent 1f6d088c29
commit 63ae2664ec

View file

@ -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";
}
}