Sebastian Kuschel reports that pfd_closing can be called for a socket

[u/mdw/putty] / charset / sbcsgen.pl

diff --git a/charset/sbcsgen.pl b/charset/sbcsgen.pl
index 6a070f4..56eb61e 100644 (file)
--- a/charset/sbcsgen.pl
+++ b/charset/sbcsgen.pl
@@ -86,9 +86,10 @@ sub outcharset($$$) {
        }
     }
     print "\n    },\n    {\n";
-    @sorted = sort { $a->[1] == $b->[1] ?
-                    $b->[2] <=> $a->[2] :
-                    $a->[1] <=> $b->[1] } @sorted;
+    @sorted = sort { ($a->[1] == $b->[1] ?
+                     $b->[2] <=> $a->[2] :
+                     $a->[1] <=> $b->[1]) ||
+                     $a->[0] <=> $b->[0] } @sorted;
     $prefix = "    ";
     $uval = -1;
     for ($i = $j = 0; $i < scalar @sorted; $i++) {