From c44d83e413ad49f5971f35cb587efd60c1ea38c3 Mon Sep 17 00:00:00 2001
From: ehouse <ehouse@0782aaa5-4710-0410-8820-a96bf9123855>
Date: Sun, 14 Dec 2003 19:52:49 +0000
Subject: [PATCH] fix for langs with custom tiles

---
 xwords4/dawg/dictstats.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xwords4/dawg/dictstats.pl b/xwords4/dawg/dictstats.pl
index 890aa761e..af24f0c68 100755
--- a/xwords4/dawg/dictstats.pl
+++ b/xwords4/dawg/dictstats.pl
@@ -28,7 +28,8 @@ while (<>) {
 
     foreach my $letter (split( / */ ) ) {
         my $i = ord($letter);
-        die "$0: this is a letter?: $i" if $i <= 32; 
+        # special-case the bogus chars we add for "specials"
+        die "$0: this is a letter?: $i" if $i <= 32 && $i >= 4 && $i != 0; 
         ++$letterCounts[$i];
         ++$letterCount;
     }
@@ -52,7 +53,7 @@ for ( my $i = 1 ; $i <= 15; ++$i ) {
 
 print "\n\n**** Letter counts ****\n";
 print "ASCII ORD  HEX     PCT (of $letterCount)\n";
-for ( my $i = 32; $i < 255; ++$i ) {
+for ( my $i = 0; $i < 255; ++$i ) {
     my $count = $letterCounts[$i];
     if ( $count > 0 ) {
         my $pct = (100.00 * $count) / $letterCount;