X-Git-Url: https://git.distorted.org.uk/u/mdw/putty/blobdiff_plain/1d875448e99d834f172a02ccfd65c8bed5a08aa0..acb5254a306254ae9c479a371a9a5232071f3327:/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";