fixed bug in detruecaser / interaction with esacping

This commit is contained in:
phikoehn 2013-01-14 19:25:43 +00:00
parent d5cf38cab2
commit a7f7379fa4

View File

@ -13,7 +13,7 @@ die("detruecase.perl < in > out")
'in=s' => \$INFILE);
my %SENTENCE_END = ("."=>1,":"=>1,"?"=>1,"!"=>1);
my %DELAYED_SENTENCE_START = ("("=>1,"["=>1,"\""=>1,"'"=>1);
my %DELAYED_SENTENCE_START = ("("=>1,"["=>1,"\""=>1,"'"=>1,"&quot;"=>1,"&apos;"=>1,"&#91;"=>1,"&#93;"=>1);
# lowercase even in headline
my %ALWAYS_LOWER;