minor casing bugfix

1 files changed, 5 insertions, 1 deletions

diff --git a/compound-split/compound-split.pl b/compound-split/compound-split.pl
index 0f359504..62259146 100755
--- a/compound-split/compound-split.pl
+++ b/compound-split/compound-split.pl
@@ -70,7 +70,11 @@ while(<STDIN>) {
       if ($IS_PLF) {
         push @res, "(('" . escape($word) . "',0,1),),";
       } else {
-        push @res, $word;
+        if ($PRESERVE_CASE) {
+          push @res, $words[$i];
+        } else {
+          push @res, $word;
+        }
       }
     } else {
       push @casings, guess_casing($words[$i]);