From 9a214eecd07ed44274740f81d8dce0e526badf80 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Fri, 7 Oct 2011 15:38:56 +0100 Subject: make SVs_PADTMP and SVs_PADSTALE share a bit SVs_PADSTALE is only meaningful with SVs_PADMY, while SVs_PADTMP is only meaningful with !SVs_PADMY, so let them share the same flag bit. Note that this doesn't yet free a bit in SvFLAGS, as the two bits are also used for SVpad_STATE, SVpad_TYPED. (This is is follow-on to 62bb6514085e5eddc42b4fdaf3713ccdb7f1da85.) --- pad.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pad.c') diff --git a/pad.c b/pad.c index 763e01bb63..c767b550c1 100644 --- a/pad.c +++ b/pad.c @@ -1720,7 +1720,7 @@ Perl_pad_free(pTHX_ PADOFFSET po) ); if (PL_curpad[po] && PL_curpad[po] != &PL_sv_undef) { - SvPADTMP_off(PL_curpad[po]); + SvFLAGS(PL_curpad[po]) &= ~SVs_PADTMP; /* also clears SVs_PADSTALE */ } if ((I32)po < PL_padix) PL_padix = po - 1; -- cgit v1.2.1