Add a new flag PERL_PV_PRETTY_NOCLEAR (actually just

PERL_PV_ESCAPE_NOCLEAR), and change Perl_pv_pretty() so that if this
bit is set, the output SV is not reset to an empty string.

p4raw-id: //depot/perl@32048

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index 31a0c58e18..98e0dd072f 100644
--- a/perl.h
+++ b/perl.h
@@ -5875,6 +5875,8 @@ extern void moncontrol(int);
 #define PERL_PV_ESCAPE_NOCLEAR      0x4000
 #define PERL_PV_ESCAPE_RE           0x8000
 
+#define PERL_PV_PRETTY_NOCLEAR      PERL_PV_ESCAPE_NOCLEAR
+
 /* used by pv_display in dump.c*/
 #define PERL_PV_PRETTY_DUMP  PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
 #define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE