Do not dereference hv before ensuring it's not NULL

This should fix RT #116441 and possibly other bugs.

1 files changed, 2 insertions, 1 deletions

diff --git a/hv.c b/hv.c
index 1d322fe599..a9322aac87 100644
--- a/hv.c
+++ b/hv.c
@@ -1753,10 +1753,11 @@ Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags)
 {
     dVAR;
     XPVHV* xhv;
-    const bool save = !!SvREFCNT(hv);
+    bool save;
 
     if (!hv)
 	return;
+    save = !!SvREFCNT(hv);
     DEBUG_A(Perl_hv_assert(aTHX_ hv));
     xhv = (XPVHV*)SvANY(hv);