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 | 3b1851c8c4e5e7bec3e83177b5c08e566890517c (patch) | |
| tree | bae995aee81fb2991d883a9f61ec85c59a6a4828 | |
| parent | 5dbde8313ec3d8448be8bd1df13f0e1945b037de (diff) | |
better error checking
| -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; } |