From 9520a454a6f2cddc9f5de361e54fd585b241000e Mon Sep 17 00:00:00 2001
From: Chris Dyer <cdyer@cs.cmu.edu>
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(<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]);
-- 
cgit v1.2.3