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.

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;
     }