summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-11-10 21:38:30 +0000
committerDavid Mitchell <davem@iabyn.com>2016-11-12 16:15:09 +0000
commit6432a58ad9a504c2dc834eb0d131a10b4b6c886b (patch)
treeaacfe1256852ac05b4aefaa42dd9069685377cb8 /dump.c
parent9a70c74b0f460b0c96e443ecdfcb551157e02b51 (diff)
downloadperl-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.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/dump.c b/dump.c
index be89333971..5b59500952 100644
--- a/dump.c
+++ b/dump.c
@@ -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;
}