Bug #69013 for HTML-Truncate: Addition of support for breaking point characters other than space

Hi, I had the need to break on characters other than space, and applied this patch to HTML::Truncate. You probably wouldn't want it in this form in the mainline - I may clean it up and make it configurable at some point and send a clean version through if I get time, but you're welcome to incorporate it as it stands if you wish. Cheers, Matt Sheppard Index: /opt/enterprise-search/funnelback/lib/perl/HTML/Truncate.pm =================================================================== --- /opt/enterprise-search/funnelback/lib/perl/HTML/Truncate.pm (revision 24680) +++ /opt/enterprise-search/funnelback/lib/perl/HTML/Truncate.pm (working copy) @@ -421,7 +421,9 @@ my $keep = ""; if ( $self->on_space ) { - ( $keep ) = $txt =~ /\A(.{0,$chars_to_keep}\s?)(?=\s|\z)/; + # Hacked by MDS to allow dot, slash and hyphen and underscore as boundaries + ( $keep ) = $txt =~ /\A(.{0,$chars_to_keep}[\s\.\/\-_]?)(?=[\s\.\/\-_]|\z)/; + #( $keep ) = $txt =~ /\A(.{0,$chars_to_keep}\s?)(?=\s|\z)/; $keep =~ s/\s+\z//; } else