-n/a-

[selfforum.git] / selfforum-cgi / shared / Encode / Plain.pm

diff --git a/selfforum-cgi/shared/Encode/Plain.pm b/selfforum-cgi/shared/Encode/Plain.pm
index f2085ce13d2acd3371c709c64a93e98d84f022ee..17c749c1e6b6f1419ed1836b69669b5a43a1e0ce 100644 (file)
--- a/selfforum-cgi/shared/Encode/Plain.pm
+++ b/selfforum-cgi/shared/Encode/Plain.pm
@@ -255,17 +255,17 @@ sub toUTF8 ($) {
     ? $$ref
     : $ref;
 
     ? $$ref
     : $ref;
 

-  if ($v56) {
-    no warnings 'utf8';
-    $string =~ tr/\x80-\xff//CU;
-  }
-  else {
+# if ($v56) {
+#   no warnings 'utf8';
+#   $string =~ tr/\x80-\xff//CU;
+# }
+# else {

     $string =~ s
       {([\x80-\xff])}
       { chr((ord ($1) >> 6) | 192)
        .chr((ord ($1) & 191))
       }eg;
     $string =~ s
       {([\x80-\xff])}
       { chr((ord ($1) >> 6) | 192)
        .chr((ord ($1) & 191))
       }eg;

-  }
+# }

 
   ref($ref)
     ? \$string
 
   ref($ref)
     ? \$string


@@ -531,4 +531,4 @@ BEGIN {
 
 #
 #
 
 #
 #

-### end of Encode::Plain #######################################################
\ No newline at end of file
+### end of Encode::Plain #######################################################