summaryrefslogtreecommitdiff
path: root/gi/pf/guess-translits.pl
diff options
context:
space:
mode:
authorChris Dyer <prguest11@taipan.cs>2012-02-10 18:31:05 +0000
committerChris Dyer <prguest11@taipan.cs>2012-02-10 18:31:05 +0000
commitf15bbfbf105ff873e89a8bdf55e845f3ac7b030e (patch)
tree1a35211ee4ef6a2b121ce263290adcd1c3d8a2ed /gi/pf/guess-translits.pl
parent50105660d8c18889e8908cf3e4c583b551dc05af (diff)
better error checking
Diffstat (limited to 'gi/pf/guess-translits.pl')
-rwxr-xr-xgi/pf/guess-translits.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/gi/pf/guess-translits.pl b/gi/pf/guess-translits.pl
index ab737121..aafec13a 100755
--- a/gi/pf/guess-translits.pl
+++ b/gi/pf/guess-translits.pl
@@ -28,6 +28,7 @@ while(<STDIN>) {
my %b2a;
for my $ap (@as) {
my ($a,$b) = split /-/, $ap;
+ die "BAD INPUT: $_\n" unless defined $a && defined $b;
$a2b{$a}->{$b} = 1;
$b2a{$b}->{$a} = 1;
}