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

diff --git a/charset/sbcsgen.pl b/charset/sbcsgen.pl
index 355bf3bc..6a070f40 100644
--- a/charset/sbcsgen.pl
+++ b/charset/sbcsgen.pl
@@ -102,7 +102,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";