Changeset 8903

Timestamp:

2005-01-17T17:11:54+13:00 (19 years ago)

Author:

jrm21

Message:

fix typo in ensure_utf8 function for asian characters

File:

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

trunk/gsdl/perllib/unicode.pm

@@ -491 +491 @@
     my $byte_replaced = 0;
     while ($highbytes =~
-        m!\G (?: [\xc0-\xdf][\x80-\xbf]    | # 2 byte utf-8
+        m!\G (?: [\xc0-\xdf][\x80-\xbf]   | # 2 byte utf-8
             [\xe0-\xef][\x80-\xbf]{2} | # 3 byte
-            [\xf0-\xf7][\x80-\xbf]{3}   # 4 byte
-            [\xf8-\xfb][\x80-\xbf]{4}   # 5 byte
-            [\xfc-\xfd][\x80-\xbf]{5}   # 6 byte
+            [\xf0-\xf7][\x80-\xbf]{3} | # 4 byte
+            [\xf8-\xfb][\x80-\xbf]{4} | # 5 byte
+            [\xfc-\xfd][\x80-\xbf]{5} | # 6 byte
             )*([\x80-\xff])? !xg
         ) {