| Subject: | Words ending in repeated characters are cut off |
I'm using Perl v5.8.0 and Text-ExtractWords v0.05 on Mac OSX 10.2.6
When words are found which have a repeated final character (such as "fortress"), the final character is cut off. See the following code:
#!/usr/bin/perl
use Text::ExtractWords qw(words_count words_list);
my %hash = ();
words_count(\%hash, "The following words don't parse correctly: hill, fortress, I'll");
foreach my $word (keys %hash) {
print "$word\n";
}