- *_CAN_PCS = sub () {$const};
-
- # Before this makes its way into a dev perl release, we have to do
- # browser-sniffing, as it were....
- return unless $const;
- *{chr 256} = \3;
- if (exists ${__PACKAGE__."::"}{"\xc4\x80"}) {
- delete ${__PACKAGE__."::"}{"\xc4\x80"};
- *_DOWNGRADE = sub () {1};
+ my $downgrade = $] < 5.015004; # && $] >= 5.008
+ if ($const) {
+ Internals::SvREADONLY($const, 1);
+ Internals::SvREADONLY($downgrade, 1);
+ $constant::{_CAN_PCS} = \$const;
+ $constant::{_DOWNGRADE} = \$downgrade;