From 866c78d1cf6feeffe34601c244c137d8b30ec2e4 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Dec 2007 00:17:41 +0000
Subject: 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
---
 dump.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'dump.c')

diff --git a/dump.c b/dump.c
index e62da785c4..126fe89010 100644
--- a/dump.c
+++ b/dump.c
@@ -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))
-- 
cgit v1.2.1