diff options
| -rwxr-xr-x | compound-split/compound-split.pl | 6 |
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]); |