diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-06-30 11:23:16 +0100 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-07-02 23:00:28 +0100 |
commit | 53083cad3a096a3b0c435d3fd0aac9f943d07419 (patch) | |
tree | 5c470125d8acda2786383e998c70c455fb611aff /mro_core.c | |
parent | 922562d10af7810210fc8afb3c3666e0b7d9594e (diff) | |
download | perl-53083cad3a096a3b0c435d3fd0aac9f943d07419.tar.gz |
Use HvHasAUX() rather than SvOOK() when operating on HVs
Diffstat (limited to 'mro_core.c')
-rw-r--r-- | mro_core.c | 4 |
1 files changed, 2 insertions, 2 deletions
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] == ':'); |