diff options
| author | Chris Dyer <prguest11@taipan.cs> | 2012-02-10 18:31:05 +0000 |
|---|---|---|
| committer | Chris Dyer <prguest11@taipan.cs> | 2012-02-10 18:31:05 +0000 |
| commit | f15bbfbf105ff873e89a8bdf55e845f3ac7b030e (patch) | |
| tree | 1a35211ee4ef6a2b121ce263290adcd1c3d8a2ed /gi/pf/guess-translits.pl | |
| parent | 50105660d8c18889e8908cf3e4c583b551dc05af (diff) | |
better error checking
Diffstat (limited to 'gi/pf/guess-translits.pl')
| -rwxr-xr-x | gi/pf/guess-translits.pl | 1 |
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; } |