Use the PERL_PV_PRETTY_NOCLEAR flag to simplify the code in

Perl_regprop() for the EXACT node case.

p4raw-id: //depot/perl@32049

1 files changed, 7 insertions, 9 deletions

diff --git a/regcomp.c b/regcomp.c
index 2af79586cf..d12f18b39c 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8805,19 +8805,17 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o)
     k = PL_regkind[OP(o)];
 
     if (k == EXACT) {
-	SV * const dsv = sv_2mortal(newSVpvs(""));
+	sv_catpvs(sv, " ");
 	/* Using is_utf8_string() (via PERL_PV_UNI_DETECT) 
 	 * is a crude hack but it may be the best for now since 
 	 * we have no flag "this EXACTish node was UTF-8" 
 	 * --jhi */
-	const char * const s = 
-	    pv_pretty(dsv, STRING(o), STR_LEN(o), 60, 
-	        PL_colors[0], PL_colors[1],
-	        PERL_PV_ESCAPE_UNI_DETECT |
-	        PERL_PV_PRETTY_ELLIPSES   |
-	        PERL_PV_PRETTY_LTGT    
-            ); 
-	Perl_sv_catpvf(aTHX_ sv, " %s", s );
+	pv_pretty(sv, STRING(o), STR_LEN(o), 60, PL_colors[0], PL_colors[1],
+		  PERL_PV_ESCAPE_UNI_DETECT |
+		  PERL_PV_PRETTY_ELLIPSES   |
+		  PERL_PV_PRETTY_LTGT       |
+		  PERL_PV_PRETTY_NOCLEAR
+		  );
     } else if (k == TRIE) {
 	/* print the details of the trie in dumpuntil instead, as
 	 * progi->data isn't available here */