diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-07-07 12:40:40 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-07 13:23:45 +0000 |
| commit | 0df25f3d8d51b9b8c7ab6750af674952bc4bb6c2 (patch) | |
| tree | f23afe8dedf6e88a25bd944d6f12674bc41d40b6 /regcomp.h | |
| parent | 9fdc7570b9ab74673d2bcedaa774679d10c80ea0 (diff) | |
| download | perl-0df25f3d8d51b9b8c7ab6750af674952bc4bb6c2.tar.gz | |
More escaping in the RE
Message-ID: <9b18b3110607070140p5cb2c58ftcadbcd113a58c3af@mail.gmail.com>
(with tweaks)
p4raw-id: //depot/perl@28500
Diffstat (limited to 'regcomp.h')
| -rw-r--r-- | regcomp.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -624,7 +624,13 @@ re.pm, especially to the documentation. #ifdef DEBUGGING #define GET_RE_DEBUG_FLAGS_DECL IV re_debug_flags = 0; GET_RE_DEBUG_FLAGS; +#define RE_PV_DISPLAY_DECL(rpv,rlen,isuni,dsv,pv,l,m) \ + const char * const rpv = (isuni) ? \ + pv_uni_display(dsv, (U8*)(pv), l, m, UNI_DISPLAY_REGEX) : \ + pv_escape(dsv, pv, l, m, 0); \ + const int rlen = SvCUR(dsv) #else #define GET_RE_DEBUG_FLAGS_DECL +#define RE_PV_DISPLAY_DECL #endif |