diff options
| -rw-r--r-- | gnu/usr.bin/perl/hv.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/hv.c b/gnu/usr.bin/perl/hv.c index 6476f5171a8..c02550fc0c5 100644 --- a/gnu/usr.bin/perl/hv.c +++ b/gnu/usr.bin/perl/hv.c @@ -1728,12 +1728,13 @@ Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags) dVAR; XPVHV* xhv; const char *name; - const bool save = !!SvREFCNT(hv); + bool save; if (!hv) return; DEBUG_A(Perl_hv_assert(aTHX_ hv)); xhv = (XPVHV*)SvANY(hv); + save = !!SvREFCNT(hv); /* The name must be deleted before the call to hfreeeeentries so that CVs are anonymised properly. But the effective name must be pre- |