summaryrefslogtreecommitdiff
path: root/compound-split
diff options
context:
space:
mode:
authorChris Dyer <cdyer@cs.cmu.edu>2011-02-16 19:59:39 -0500
committerChris Dyer <cdyer@cs.cmu.edu>2011-02-16 19:59:39 -0500
commit9520a454a6f2cddc9f5de361e54fd585b241000e (patch)
tree935b2f391d9f6680e5be3522dff20ae1dc8873d2 /compound-split
parent243c40d06e949cb3d6c9cfe865c307973f2df49e (diff)
minor casing bugfix
Diffstat (limited to 'compound-split')
-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]);