This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mro.c: Assert that the previous commit is correct
[perl5.git] / mro.c
diff --git a/mro.c b/mro.c
index ec0fb60..170741c 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -992,6 +992,7 @@ S_mro_gather_and_rename(pTHX_ HV * const stashes, HV * const seen_stashes,
           it, so subclasses could be listed in isarev hashes belonging to
           any of the names, so we have to check all of them.
         */
+       assert(!oldstash || HvENAME(oldstash));
        if (oldstash) {
            /* Extra variable to avoid a compiler warning */
            char * const hvename = HvENAME(oldstash);