diff options
Diffstat (limited to 'dist/Carp/lib/Carp.pm')
-rw-r--r-- | dist/Carp/lib/Carp.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm index b4dce03e2b..658f24045b 100644 --- a/dist/Carp/lib/Carp.pm +++ b/dist/Carp/lib/Carp.pm @@ -6,8 +6,8 @@ use warnings; BEGIN { no strict "refs"; - if(exists($::{"utf8::"}) && exists($utf8::{"is_utf8"}) && - defined(*{"utf8::is_utf8"}{CODE})) { + if(exists($::{"utf8::"}) && exists(*{$::{"utf8::"}}{HASH}->{"is_utf8"}) && + defined(*{*{$::{"utf8::"}}{HASH}->{"is_utf8"}}{CODE})) { *is_utf8 = \&{"utf8::is_utf8"}; } else { *is_utf8 = sub { 0 }; @@ -16,8 +16,8 @@ BEGIN { BEGIN { no strict "refs"; - if(exists($::{"utf8::"}) && exists($utf8::{"downgrade"}) && - defined(*{"utf8::downgrade"}{CODE})) { + if(exists($::{"utf8::"}) && exists(*{$::{"utf8::"}}{HASH}->{"downgrade"}) && + defined(*{*{$::{"utf8::"}}{HASH}->{"downgrade"}}{CODE})) { *downgrade = \&{"utf8::downgrade"}; } else { *downgrade = sub {}; |