diff options
author | David Mitchell <davem@iabyn.com> | 2016-11-10 21:38:30 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-11-12 16:15:09 +0000 |
commit | 6432a58ad9a504c2dc834eb0d131a10b4b6c886b (patch) | |
tree | aacfe1256852ac05b4aefaa42dd9069685377cb8 /dump.c | |
parent | 9a70c74b0f460b0c96e443ecdfcb551157e02b51 (diff) | |
download | perl-6432a58ad9a504c2dc834eb0d131a10b4b6c886b.tar.gz |
Eliminate SVrepl_EVAL and SvEVALED()
This flag is only used to indicate that the SV holding the text of the
replacement part of a s/// has seen at least one /e.
Instead, set the IVX field in the SV to a true value.
(We already set the NVX field on that SV to indicate a multi-src-line
substitution).
This is to reduce the number of odd special cases for the SVpbm_VALID flag.
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -1509,15 +1509,13 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo } /* FALLTHROUGH */ default: - evaled_or_uv: - if (SvEVALED(sv)) sv_catpv(d, "EVALED,"); + do_uv: if (SvIsUV(sv) && !(flags & SVf_ROK)) sv_catpv(d, "IsUV,"); break; case SVt_PVMG: if (SvTAIL(sv)) sv_catpv(d, "TAIL,"); if (SvVALID(sv)) sv_catpv(d, "VALID,"); - /* FALLTHROUGH */ - goto evaled_or_uv; + goto do_uv; case SVt_PVAV: break; } |