--- 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);