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 | 9520a454a6f2cddc9f5de361e54fd585b241000e (patch) | |
| tree | 935b2f391d9f6680e5be3522dff20ae1dc8873d2 /compound-split | |
| parent | 243c40d06e949cb3d6c9cfe865c307973f2df49e (diff) | |
minor casing bugfix
Diffstat (limited to 'compound-split')
| -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]); |