From: Dan Kogai <dankogai@dan.co.jp>
Date: Thu, 22 May 2003 18:46:40 +0000 (+0900)
Subject: Re: [cpan #2629] Wrong assumption in numeric comparison
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b6a28d4f323babf03c71d114b501b87297c4dc7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {