Re: [perl #43357] *DESTROY = sub {} at runtime

From: "Brandon Black" <blblack@gmail.com>
Message-ID: <84621a60706270807r7af65546x8d959b131ffa28e6@mail.gmail.com>

p4raw-id: //depot/perl@31489

1 files changed, 4 insertions, 2 deletions

diff --git a/mro.c b/mro.c
index d2ba841c17..01461b145a 100644
--- a/mro.c
+++ b/mro.c
@@ -448,8 +448,10 @@ Perl_mro_isa_changed_in(pTHX_ HV* stash)
     bool is_universal;
     struct mro_meta * meta;
 
-    const char * const stashname = HvNAME_get(stash);
-    const STRLEN stashname_len = HvNAMELEN_get(stash);
+    const char * const stashname = stash ? HvNAME_get(stash) : NULL;
+    const STRLEN stashname_len = stash ? HvNAMELEN_get(stash) : 0;
+
+    if(!stash) return;
 
     if(!stashname)
         Perl_croak(aTHX_ "Can't call mro_isa_changed_in() on anonymous symbol table");