diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-23 06:24:50 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-24 22:05:36 -0700 |
commit | 145bf8eec5be8c17bd592ec8d28efb239bdafa93 (patch) | |
tree | 9c0676d6c0128eebaf0ac8eed3c1aa625f55981f /dump.c | |
parent | a9f1090bfdfd2dc65f4d48a010d12f08dfeeedb5 (diff) | |
download | perl-145bf8eec5be8c17bd592ec8d28efb239bdafa93.tar.gz |
Remove most uses of PADMY
SVs_PADMY is now 0, and SvPADMY means !SvPADTMP.
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1429,13 +1429,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_PADMY) && (flags & SVs_PADSTALE)) + if ((flags & SVs_PADSTALE)) sv_catpv(d, "PADSTALE,"); } if (!((flags & SVpad_NAME) == SVpad_NAME && type == SVt_PVMG)) { - if (!(flags & SVs_PADMY) && (flags & SVs_PADTMP)) + if ((flags & SVs_PADTMP)) sv_catpv(d, "PADTMP,"); - if (flags & SVs_PADMY) sv_catpv(d, "PADMY,"); } append_flags(d, flags, first_sv_flags_names); if (flags & SVf_ROK) { |