diff options
Diffstat (limited to 'word-aligner/support/extract_vocab.pl')
-rwxr-xr-x | word-aligner/support/extract_vocab.pl | 5 |
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; |