Salvage bits and pieces from the experimental 'utf8 everywhere'

[p5sagit/p5-mst-13.2.git] / lib / unicode / mktables.PL

diff --git a/lib/unicode/mktables.PL b/lib/unicode/mktables.PL
index 68578b9..637050a 100755 (executable)
--- a/lib/unicode/mktables.PL
+++ b/lib/unicode/mktables.PL
@@ -324,8 +324,8 @@ print INID <<EOH;
 EOH
 
 # Order doesn't matter but let's prettyprint anyway.
-foreach my $in (sort { $InId{$a} cmp $InId{$b} } keys %InId) {
-    print INID "'$in' => $InId{$in},\n";
+foreach my $in (sort { $InId{$a} <=> $InId{$b} } keys %InId) {
+    printf INID "%-40s => %3d,\n", "'$in'", $InId{$in};
 }
 
 print INID ");\n";