[perl #119045] Make list constant mutable again
authorFather Chrysostomos <sprout@cpan.org>
Sun, 28 Jul 2013 20:01:59 +0000 (13:01 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 28 Jul 2013 20:01:59 +0000 (13:01 -0700)
This broke CPAN.  Maybe we need to rethink this....

dist/constant/lib/constant.pm
dist/constant/t/constant.t

index b8fa025..ee5e376 100644 (file)
@@ -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++;
index 129196a..78f21ac 100644 (file)
@@ -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 = $_;