In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2b7e302aafb087c3e0ad3f0105cb43e566196e84?hp=60b8fafeb11519ee514f3d9213b109aa52133e87>
- Log ----------------------------------------------------------------- commit 2b7e302aafb087c3e0ad3f0105cb43e566196e84 Author: Brad Gilbert <[email protected]> Date: Mon Mar 4 12:36:56 2013 -0600 Make utf8 downgrading in constant.pm, version dependent The reason for this change is that the test that determines when to do this caused the utf8 module to always be loaded. ----------------------------------------------------------------------- Summary of changes: 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 1940b8e..035bce2 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 }; } #======================================================================= -- Perl5 Master Repository
