From 9520a454a6f2cddc9f5de361e54fd585b241000e Mon Sep 17 00:00:00 2001 From: Chris Dyer Date: Wed, 16 Feb 2011 19:59:39 -0500 Subject: minor casing bugfix --- compound-split/compound-split.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'compound-split') 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() { 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]); -- cgit v1.2.3