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;
   }