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

1 files changed, 1 insertions, 1 deletions

diff --git a/ext/re/re.xs b/ext/re/re.xs
index fa82127c85..94cb2f5be2 100644
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -126,7 +126,7 @@ PPCODE:
         } else {
             /* Scalar, so use the string that Perl would return */
             /* return the pattern in (?msix:..) format */
-            pattern = sv_2mortal(newSVpvn(re->wrapped,re->wraplen));
+            pattern = sv_2mortal(newSVpvn(RX_WRAPPED(re),RX_WRAPLEN(re)));
             if (re->extflags & RXf_UTF8) 
                 SvUTF8_on(pattern);
             XPUSHs(pattern);