Re: [cpan #2629] Wrong assumption in numeric comparison

[p5sagit/p5-mst-13.2.git] / ext / Encode / encoding.pm

diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm
index a69a7b0..5c922bd 100644 (file)
--- a/ext/Encode/encoding.pm
+++ b/ext/Encode/encoding.pm
@@ -27,7 +27,7 @@ sub _exception{
           UTF-32 UTF-32BE UTF-32LE);
     $utfs{$name} or return 0;            # UTFs or no
     require Config; Config->import(); our %Config;
-    return $Config{perl_patchlevel} == 0 # maintperl then no
+    return $Config{perl_patchlevel} ? 0 : 1 # maintperl then no
 }
 
 sub import {