[perl #127351] add isaelem magic on *Foo::ISA = arrayref

diff --git a/sv.c b/sv.c
index e3e5af4..ad2208e 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -4184,9 +4184,18 @@ Perl_gv_setref(pTHX_ SV *const dstr, SV *const sstr)
            }
            else
            {
+                SSize_t i;
                sv_magic(
                 sref, omg ? omg->mg_obj : dstr, PERL_MAGIC_isa, NULL, 0
                );
+                for (i = 0; i <= AvFILL(sref); ++i) {
+                    SV **elem = av_fetch ((AV*)sref, i, 0);
+                    if (elem) {
+                        sv_magic(
+                          *elem, sref, PERL_MAGIC_isaelem, NULL, i
+                        );
+                    }
+                }
                mg = mg_find(sref, PERL_MAGIC_isa);
            }
            /* Since the *ISA assignment could have affected more than

diff --git a/t/mro/basic.t b/t/mro/basic.t
index f68637a..8d54dc3 100644 (file)
--- a/t/mro/basic.t
+++ b/t/mro/basic.t
@@ -436,7 +436,6 @@ PROG
 
 {
     # [perl #127351]
-    local $::TODO = "assignment to *Foo::ISA doesn't magicalize elements";
     # *Foo::ISA = \@some_array
     # didn't magicalize the elements of @some_array, causing two
     # problems: