From: Yves Orton Date: Mon, 15 Jan 2007 23:06:44 +0000 (+0100) Subject: Re: [PATCH] Change implementation of %+ to use a proper tied hash interface and add... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a0e9afcfda411b20a79ef1babbb0cd3aec6de78;p=p5sagit%2Fp5-mst-13.2.git Re: [PATCH] Change implementation of %+ to use a proper tied hash interface and add support for %- Message-ID: <9b18b3110701151406p7168b20byf873ee2e58091ca3@mail.gmail.com> p4raw-id: //depot/perl@29843 --- diff --git a/regcomp.h b/regcomp.h index 83a72d0..898fb8e 100644 --- a/regcomp.h +++ b/regcomp.h @@ -764,22 +764,22 @@ re.pm, especially to the documentation. const char * const rpv = \ pv_pretty((dsv), (pv), (l), (m), \ PL_colors[(c1)],PL_colors[(c2)], \ - ((isuni) ? PERL_PV_ESCAPE_UNI : 0) ); \ + PERL_PV_ESCAPE_RE |((isuni) ? PERL_PV_ESCAPE_UNI : 0) ); \ const int rlen = SvCUR(dsv) #define RE_SV_ESCAPE(rpv,isuni,dsv,sv,m) \ const char * const rpv = \ pv_pretty((dsv), (SvPV_nolen_const(sv)), (SvCUR(sv)), (m), \ PL_colors[(c1)],PL_colors[(c2)], \ - ((isuni) ? PERL_PV_ESCAPE_UNI : 0) ) + PERL_PV_ESCAPE_RE |((isuni) ? PERL_PV_ESCAPE_UNI : 0) ) #define RE_PV_QUOTED_DECL(rpv,isuni,dsv,pv,l,m) \ const char * const rpv = \ pv_pretty((dsv), (pv), (l), (m), \ PL_colors[0], PL_colors[1], \ - ( PERL_PV_PRETTY_QUOTE | PERL_PV_PRETTY_ELIPSES | \ + ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_PRETTY_ELIPSES | \ ((isuni) ? PERL_PV_ESCAPE_UNI : 0)) \ - ) + ) #define RE_SV_DUMPLEN(ItEm) (SvCUR(ItEm) - (SvTAIL(ItEm)!=0)) #define RE_SV_TAIL(ItEm) (SvTAIL(ItEm) ? "$" : "")