Make utf8 downgrading in constant.pm, version dependent
authorBrad Gilbert <b2gills@gmail.com>
Mon, 4 Mar 2013 18:36:56 +0000 (12:36 -0600)
committerKarl Williamson <public@khwilliamson.com>
Wed, 20 Mar 2013 18:25:53 +0000 (12:25 -0600)
The reason for this change is that the test
that determines when to do this caused the
utf8 module to always be loaded.

dist/constant/lib/constant.pm

index 1940b8e..035bce2 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 use warnings::register;
 
 use vars qw($VERSION %declared);
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 #=======================================================================
 
@@ -29,17 +29,8 @@ BEGIN {
     my $const = $] > 5.009002;
     *_CAN_PCS = sub () {$const};
 
-    # Before this makes its way into a dev perl release, we have to do
-    # browser-sniffing, as it were....
-    *{chr 256} = \3;
-    if (exists ${__PACKAGE__."::"}{"\xc4\x80"}) {
-       delete ${__PACKAGE__."::"}{"\xc4\x80"};
-       *_DOWNGRADE = sub () {1};
-    }
-    else {
-       delete ${__PACKAGE__."::"}{chr 256};
-       *_DOWNGRADE = sub () {0};
-    }
+    my $downgrade = $] < 5.015004; # && $] >= 5.008
+    *_DOWNGRADE = sub () { $downgrade };
 }
 
 #=======================================================================