diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-01-16 00:06:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-01-16 15:32:30 +0000 |
| commit | 0a0e9afcfda411b20a79ef1babbb0cd3aec6de78 (patch) | |
| tree | 9515fb2efdacf94f8b8acce540a3ebfe0045c3e6 /regcomp.h | |
| parent | 7122b2379657de1172884989d9029d9ca5b331a1 (diff) | |
| download | perl-0a0e9afcfda411b20a79ef1babbb0cd3aec6de78.tar.gz | |
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
Diffstat (limited to 'regcomp.h')
| -rw-r--r-- | regcomp.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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) ? "$" : "") |