diff options
author | Chris Dyer <cdyer@cs.cmu.edu> | 2011-02-16 19:59:39 -0500 |
---|---|---|
committer | Chris Dyer <cdyer@cs.cmu.edu> | 2011-02-16 19:59:39 -0500 |
commit | 281d2441b9f1945d1ad1108f7ebc036b2a6d38e0 (patch) | |
tree | e685f6d13d52e190fbf7b5106d0b84e821778a6e | |
parent | 5656232da7d26190bea814a778bdcc5cc36a6df9 (diff) |
minor casing bugfix
-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]); |