minor fix

1 files changed, 5 insertions, 3 deletions

diff --git a/compound-split/compound-split.pl b/compound-split/compound-split.pl
index e6f1a3e0..beca4dc0 100755
--- a/compound-split/compound-split.pl
+++ b/compound-split/compound-split.pl
@@ -63,7 +63,11 @@ while(<STDIN>) {
   for (my $i=0; $i < scalar @words; $i++) {
     my $word = lc $words[$i];
     if (length($word)<6 || $word =~ /^[,\-0-9\.]+$/) {
-      push @res, $word;
+      if ($IS_PLF) {
+        push @res, "(('" . escape($word) . "',0,1),),";
+      } else {
+        push @res, $word;
+      }
     } else {
       push @res, undef;
       push @todo, $word;
@@ -81,8 +85,6 @@ while(<STDIN>) {
           $seg =~ s/^# //o;
         }
         $res[$i] = $seg;
-      } elsif ($IS_PLF) {
-        $res[$i] = "(('" . escape($res[$i]) . "',0,1),),";
       }
     }
   }