diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-29 00:17:41 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-29 00:17:41 +0000 |
| commit | 866c78d1cf6feeffe34601c244c137d8b30ec2e4 (patch) | |
| tree | 8975bc653553252df225cd2aa2b28eb0c197f213 /dump.c | |
| parent | 51aa200460138e2cc5ab024c9216177298546e81 (diff) | |
| download | perl-866c78d1cf6feeffe34601c244c137d8b30ec2e4.tar.gz | |
Wrap wrapped and wraplen from struct regexp in macros RW_WRAPPED() and
RX_WRAPLEN() to preserve source compatibility when they get moved
around.
p4raw-id: //depot/perl@32758
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1285,7 +1285,8 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 if (mg->mg_type == PERL_MAGIC_qr) { const regexp * const re = (regexp *)mg->mg_obj; SV * const dsv = sv_newmortal(); - const char * const s = pv_pretty(dsv, re->wrapped, re->wraplen, + const char * const s + = pv_pretty(dsv, RX_WRAPPED(re), RX_WRAPLEN(re), 60, NULL, NULL, ( PERL_PV_PRETTY_QUOTE | PERL_PV_ESCAPE_RE | PERL_PV_PRETTY_ELLIPSES | ((re->extflags & RXf_UTF8) ? PERL_PV_ESCAPE_UNI : 0)) |