Boolean priority bug, found by Mashrab Kuvatov:

Subject: Re: [perl #49646] perlbug AutoReply: open ':locale' does not work under locale with the modifier
Message-Id: <200801151517.46296.kmashrab@uni-bremen.de>

p4raw-id: //depot/perl@32980

diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm
index 16139c1..cd32cf4 100644 (file)
--- a/ext/Encode/encoding.pm
+++ b/ext/Encode/encoding.pm
@@ -50,7 +50,7 @@ sub _get_locale_encoding {
 
     no warnings 'uninitialized';
 
-    if ( not $locale_encoding && in_locale() ) {
+    if ( (not $locale_encoding) && in_locale() ) {
         if ( $ENV{LC_ALL} =~ /^([^.]+)\.([^.@]+)(@.*)?$/ ) {
             ( $country_language, $locale_encoding ) = ( $1, $2 );
         }