summaryrefslogtreecommitdiff
path: root/word-aligner/support/extract_vocab.pl
diff options
context:
space:
mode:
Diffstat (limited to 'word-aligner/support/extract_vocab.pl')
-rwxr-xr-xword-aligner/support/extract_vocab.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/word-aligner/support/extract_vocab.pl b/word-aligner/support/extract_vocab.pl
index 070d4202..ef94b7d6 100755
--- a/word-aligner/support/extract_vocab.pl
+++ b/word-aligner/support/extract_vocab.pl
@@ -7,7 +7,10 @@ my $wc = 0;
while(<>) {
chomp;
my @words = split /\s+/;
- for my $word (@words) { $wc++; $dict{$word}++; }
+ for my $word (@words) {
+ die if $word eq '';
+ $wc++; $dict{$word}++;
+ }
}
my $tc = 0;