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

Message-Id: <49E36875-8C3A-11D7-9C91-000393AE4244@dan.co.jp>

p4raw-id: //depot/perl@19590

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 {