From 3b1851c8c4e5e7bec3e83177b5c08e566890517c Mon Sep 17 00:00:00 2001
From: Chris Dyer <prguest11@taipan.cs>
Date: Fri, 10 Feb 2012 18:31:05 +0000
Subject: better error checking

---
 gi/pf/guess-translits.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gi/pf')

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;
   }
-- 
cgit v1.2.3