Forgot the latest mktables.PL from #9899.

p4raw-id: //depot/perl@9900

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