better error message

This commit is contained in:
ehouse 2003-12-10 06:00:56 +00:00
parent 9949b2cadb
commit ee8919d362

View file

@ -415,7 +415,7 @@ sub parseAndSort() {
die "word too long" if @word > 15;
}
} elsif ($gKillIfMissing) {
die "char $byt (", $byt+0, ") not in map file $gTableFile\n";
die "$0: chr $byt (", $byt+0, ") not in map file $gTableFile\n";
} else {
$dropWord = 1;
splice @word; # lose anything we already have