diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-05 16:07:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-05 16:07:21 +0000 |
| commit | 3c8556c3bff92f6c755a00c0166f795d7176b75d (patch) | |
| tree | 1e60ef09781d0ed2c0cdf2abb702a5fecbc1ff2a /ext/re/re.xs | |
| parent | 4979e2888f6553e6e237ea088f8b66b30ea28592 (diff) | |
| download | perl-3c8556c3bff92f6c755a00c0166f795d7176b75d.tar.gz | |
Replace all reads of RXf_UTF8 with RX_UTF8().
p4raw-id: //depot/perl@32849
Diffstat (limited to 'ext/re/re.xs')
| -rw-r--r-- | ext/re/re.xs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/re/re.xs b/ext/re/re.xs index dc73b755b3..1de1491dc6 100644 --- a/ext/re/re.xs +++ b/ext/re/re.xs @@ -118,7 +118,8 @@ PPCODE: } pattern = sv_2mortal(newSVpvn(RX_PRECOMP(re),RX_PRELEN(re))); - if (RX_EXTFLAGS(re) & RXf_UTF8) SvUTF8_on(pattern); + if (RX_UTF8(re)) + SvUTF8_on(pattern); /* return the pattern and the modifiers */ XPUSHs(pattern); @@ -128,7 +129,7 @@ PPCODE: /* Scalar, so use the string that Perl would return */ /* return the pattern in (?msix:..) format */ pattern = sv_2mortal(newSVpvn(RX_WRAPPED(re),RX_WRAPLEN(re))); - if (RX_EXTFLAGS(re) & RXf_UTF8) + if (RX_UTF8(re)) SvUTF8_on(pattern); XPUSHs(pattern); XSRETURN(1); |