X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/putty/blobdiff_plain/1d875448e99d834f172a02ccfd65c8bed5a08aa0..1957695ce47dd93c30efc48ca1f272a34c732841:/charset/sbcsgen.pl

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";