return error if IDS data file is irregular.
authorimiyazaki <imiyazaki>
Mon, 6 Sep 2004 13:54:21 +0000 (13:54 +0000)
committerimiyazaki <imiyazaki>
Mon, 6 Sep 2004 13:54:21 +0000 (13:54 +0000)
inCHISE

diff --git a/inCHISE b/inCHISE
index fa742c9..67726bc 100755 (executable)
--- a/inCHISE
+++ b/inCHISE
@@ -132,6 +132,8 @@ if(-e $idsdata_file){
            $font_start=$1,$ids_start=$2;
        }elsif(m/^(.*?)\t(\d+)\t(\d+)/){
            $ids{$1}=[$2,$3,];
+       }else{
+           die "Irregular IDS file: $idsdata_file.\n";
        }
     }
     seek(IDSDATA,0,0);