--- trunk/html/FormatResult.pm 2005/07/09 13:10:22 106
+++ trunk/html/FormatResult.pm 2005/07/09 13:14:25 107
@@ -114,10 +114,10 @@
foreach my $w (@words) {
if ($w =~ m/ARRAY/) {
foreach my $ww (sort { length($b) <=> length($a) } @{$w}) {
- $$snip_ref =~ s,(\b\Q$ww\E),$1,gsi;
+ $$snip_ref =~ s,(\b\Q$ww\E\w*),$1,gsi;
}
} else {
- $$snip_ref =~ s,(\b\Q$w\E),$1,gsi;
+ $$snip_ref =~ s,(\b\Q$w\E\w*),$1,gsi;
}
$i++;
$i = 0 if ($i > $#colors);