diff --git a/dump.c b/dump.c index c3d82ec2de04..780a2df3f879 100644 --- a/dump.c +++ b/dump.c @@ -2393,12 +2393,6 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo #endif (void)PerlIO_putc(file, '\n'); } - { - MAGIC * const mg = mg_find(sv, PERL_MAGIC_symtab); - if (mg && mg->mg_obj) { - Perl_dump_indent(aTHX_ level, file, " PMROOT = 0x%" UVxf "\n", PTR2UV(mg->mg_obj)); - } - } { const char * const hvname = HvNAME_get(sv); if (hvname) { diff --git a/sv.c b/sv.c index e83fd763591d..25a22ef68875 100644 --- a/sv.c +++ b/sv.c @@ -5895,7 +5895,6 @@ Perl_sv_magicext(pTHX_ SV *const sv, SV *const obj, const int how, how == PERL_MAGIC_arylen || how == PERL_MAGIC_regdata || how == PERL_MAGIC_regdatum || - how == PERL_MAGIC_symtab || (SvTYPE(obj) == SVt_PVGV && (GvSV(obj) == sv || GvHV(obj) == (const HV *)sv || GvAV(obj) == (const AV *)sv || GvCV(obj) == (const CV *)sv