diff options
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/constant/lib/constant.pm | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/dist/constant/lib/constant.pm b/dist/constant/lib/constant.pm index 1940b8e8f5..035bce2374 100644 --- a/dist/constant/lib/constant.pm +++ b/dist/constant/lib/constant.pm @@ -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 }; } #======================================================================= |