diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-12-19 11:08:47 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2010-12-19 20:21:56 -0700 |
| commit | c89df6cf6f70d6460ca3fec9d465e5e6e17fb3a7 (patch) | |
| tree | 95e7d58cf1dc4fd257fe694d24697f6393e4eaa8 /regcomp.h | |
| parent | 681f01c2a5ff0846090d78599b3d4caeb93fda26 (diff) | |
| download | perl-c89df6cf6f70d6460ca3fec9d465e5e6e17fb3a7.tar.gz | |
Change regexes to debug dump non-ASCII as hex.
instead of the less familiar octal for larger values. Perhaps they
should actually print the actual character, but this is far easier than
the previous to understand.
Diffstat (limited to 'regcomp.h')
| -rw-r--r-- | regcomp.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -822,20 +822,20 @@ re.pm, especially to the documentation. const char * const rpv = \ pv_pretty((dsv), (pv), (l), (m), \ PL_colors[(c1)],PL_colors[(c2)], \ - PERL_PV_ESCAPE_RE |((isuni) ? PERL_PV_ESCAPE_UNI : 0) ); \ + PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII |((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)], \ - PERL_PV_ESCAPE_RE |((isuni) ? PERL_PV_ESCAPE_UNI : 0) ) + PERL_PV_ESCAPE_RE|PERL_PV_ESCAPE_NONASCII |((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_ESCAPE_RE | PERL_PV_PRETTY_ELLIPSES | \ + ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_ESCAPE_NONASCII | PERL_PV_PRETTY_ELLIPSES | \ ((isuni) ? PERL_PV_ESCAPE_UNI : 0)) \ ) |