diff options
Diffstat (limited to 'compound-split/compound-split.pl')
| -rwxr-xr-x | compound-split/compound-split.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compound-split/compound-split.pl b/compound-split/compound-split.pl index 490a5bc5..7f45d345 100755 --- a/compound-split/compound-split.pl +++ b/compound-split/compound-split.pl @@ -62,7 +62,7 @@ while(<STDIN>) { my @todo = (); for (my $i=0; $i < scalar @words; $i++) { my $word = lc $words[$i]; - if (length($word)<6 || $word =~ /^[,\-0-9\.]+$/) { + if (length($word)<6 || $word =~ /^[,\-0-9\.]+$/ || $word =~ /[@.\-\/:]/) { if ($IS_PLF) { push @res, "(('" . escape($word) . "',0,1),),"; } else { |