diff options
| author | David Mitchell <davem@iabyn.com> | 2011-10-07 15:38:56 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-10-07 20:07:48 +0100 |
| commit | 9a214eecd07ed44274740f81d8dce0e526badf80 (patch) | |
| tree | 1e33a4db9f23d13f72f267978a83a39188677a11 /dump.c | |
| parent | d0c0e7dd0ccf3d5c2f658529d3ee578a0bcb116e (diff) | |
| download | perl-9a214eecd07ed44274740f81d8dce0e526badf80.tar.gz | |
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.)
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -1527,10 +1527,12 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (!((flags & SVpad_NAME) == SVpad_NAME && (type == SVt_PVMG || type == SVt_PVNV))) { - if (flags & SVs_PADSTALE) sv_catpv(d, "PADSTALE,"); + if ((flags & SVs_PADMY) && (flags & SVs_PADSTALE)) + sv_catpv(d, "PADSTALE,"); } if (!((flags & SVpad_NAME) == SVpad_NAME && type == SVt_PVMG)) { - if (flags & SVs_PADTMP) sv_catpv(d, "PADTMP,"); + if (!(flags & SVs_PADMY) && (flags & SVs_PADTMP)) + sv_catpv(d, "PADTMP,"); if (flags & SVs_PADMY) sv_catpv(d, "PADMY,"); } append_flags(d, flags, first_sv_flags_names); |