summaryrefslogtreecommitdiff
path: root/compound-split/compound-split.pl
diff options
context:
space:
mode:
Diffstat (limited to 'compound-split/compound-split.pl')
-rwxr-xr-xcompound-split/compound-split.pl6
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]);