Changeset 8767

Timestamp:

2004-12-09T11:49:32+13:00 (19 years ago)

Author:

jrm21

Message:

add 'use utf8' so hopefully substr() is smart enough to cut between
chars and not just bytes, for multi-byte chars.

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -632 +632 @@
     $tmptext =~ s/\s+$//;
     $tmptext =~ s/\s+/ /gs;
+    # with perl 5.6 at least, substr might segment at a multi-byte char...
+    use utf8;
     $tmptext = substr ($tmptext, 0, $size);
     $tmptext =~ s/\s\S*$/…/; # adds an ellipse (...)