Check Encode version, not Perl version
authorQuentin Smith <quentin@mit.edu>
Sun, 25 Jan 2015 04:31:42 +0000 (23:31 -0500)
committerQuentin Smith <quentin@mit.edu>
Sun, 25 Jan 2015 04:31:42 +0000 (23:31 -0500)
IkiWiki/CGI.pm

index 9e7cc06c7660a8251a00f99ffb738a34ff6c4e90..f9ff688712908d9315352fe7820d6117d96f0621 100644 (file)
@@ -124,9 +124,9 @@ sub decode_cgi_utf8 ($) {
 
 sub safe_decode_utf8 ($) {
     my $octets = shift;
-    # call decode_utf8 on >= 5.20 only if it's not already decoded,
-    # otherwise it balks, on < 5.20, always call it
-    if ($] < 5.02 || !Encode::is_utf8($octets)) {
+    # call decode_utf8 on Encode.pm >= 2.53 only if it's not already decoded,
+    # otherwise it balks, on < 2.53, always call it
+    if ($Encode::VERSION < 2.53 || !Encode::is_utf8($octets)) {
         return decode_utf8($octets);
     }
     else {