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