X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=charset%2Fsbcsgen.pl;h=56eb61e33300e5cdd5d7f3535d6e005292ecaa94;hb=3e22c99c9a3c28e042f2dc3a50fadf95e7c277e7;hp=355bf3bc48a00d833123af588a16c98810634b0d;hpb=a2afc03bdbd478f5c0ab56aa2bcf1613f4e08361;p=PuTTY.git

diff --git a/charset/sbcsgen.pl b/charset/sbcsgen.pl
index 355bf3bc..56eb61e3 100644
--- 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++) {
@@ -102,7 +103,7 @@ sub outcharset($$$) {
 	}
 	$j++;
     }
-    printf "\n    },\n    %d\n", scalar @sorted;
+    printf "\n    },\n    %d\n", $j;
     print "};\n";
     print "const charset_spec charset_$name = {\n" .
           "    $name, read_sbcs, write_sbcs, &data_$name\n};\n\n";