diff options
| -rw-r--r-- | dist/constant/lib/constant.pm | 3 | ||||
| -rw-r--r-- | dist/constant/t/constant.t | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/dist/constant/lib/constant.pm b/dist/constant/lib/constant.pm index b8fa025180..ee5e376faa 100644 --- a/dist/constant/lib/constant.pm +++ b/dist/constant/lib/constant.pm @@ -162,7 +162,8 @@ sub import { my @list = @_; if (_CAN_PCS_FOR_ARRAY) { Internals::SvREADONLY(@list, 1); - Internals::SvREADONLY($list[$_], 1) for 0..$#list; + # Disabled for now; see perl #119045: + #Internals::SvREADONLY($list[$_], 1) for 0..$#list; if ($symtab && !exists $symtab->{$name}) { $symtab->{$name} = \@list; $flush_mro++; diff --git a/dist/constant/t/constant.t b/dist/constant/t/constant.t index 129196aa60..78f21ac2c2 100644 --- a/dist/constant/t/constant.t +++ b/dist/constant/t/constant.t @@ -393,6 +393,7 @@ SKIP: { # 5.19.3 and later. SKIP: { skip "fails under 5.19.2 and earlier", 2 if $] < 5.019003; + local $TODO = "disabled for now; breaks CPAN; see perl #119045"; use constant constant_list => 1..2; for (constant_list) { my $num = $_; |