From 53083cad3a096a3b0c435d3fd0aac9f943d07419 Mon Sep 17 00:00:00 2001
From: "Paul \"LeoNerd\" Evans" <leonerd@leonerd.org.uk>
Date: Thu, 30 Jun 2022 11:23:16 +0100
Subject: Use HvHasAUX() rather than SvOOK() when operating on HVs

---
 mro_core.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'mro_core.c')

diff --git a/mro_core.c b/mro_core.c
index 235dacaec7..042ed673e8 100644
--- a/mro_core.c
+++ b/mro_core.c
@@ -415,7 +415,7 @@ Perl_mro_get_linear_isa(pTHX_ HV *stash)
     AV *isa;
 
     PERL_ARGS_ASSERT_MRO_GET_LINEAR_ISA;
-    if(!SvOOK(stash))
+    if(!HvHasAUX(stash))
         Perl_croak(aTHX_ "Can't linearize anonymous symbol table");
 
     meta = HvMROMETA(stash);
@@ -792,7 +792,7 @@ Perl_mro_package_moved(pTHX_ HV * const stash, HV * const oldstash,
          *svp != (SV *)gv
         ) return;
     }
-    assert(SvOOK(GvSTASH(gv)));
+    assert(HvHasAUX(GvSTASH(gv)));
     assert(GvNAMELEN(gv));
     assert(GvNAME(gv)[GvNAMELEN(gv) - 1] == ':');
     assert(GvNAMELEN(gv) == 1 || GvNAME(gv)[GvNAMELEN(gv) - 2] == ':');
-- 
cgit v1.2.1