diff options
author | David Mitchell <davem@iabyn.com> | 2013-06-17 17:38:41 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2013-07-28 10:33:35 +0100 |
commit | f8a6dd2e91670031e094529649fe2380f2ee6854 (patch) | |
tree | e3fd224827446a08392ec00730e93111f14567f2 /pp_hot.c | |
parent | f0fb0b59f464b08ce14cb154cbf940ff94b2fada (diff) | |
download | perl-f8a6dd2e91670031e094529649fe2380f2ee6854.tar.gz |
pp_match(): fix UTF* match setting
A recent commit did RX_MATCH_UTF8_set() based on the utf8-ness of the
pattern rather than the match string. I didn't matter because in that
branch they were guaranteed to have the same value, but fix it anyway,
both for correctness sake, and because it it *will* matter shortly
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1447,7 +1447,7 @@ PP(pp_match) /* match via INTUIT shouldn't have any captures. * Let @-, @+, $^N know */ RX_LASTPAREN(rx) = RX_LASTCLOSEPAREN(rx) = 0; - RX_MATCH_UTF8_set(rx, cBOOL(DO_UTF8(rx))); + RX_MATCH_UTF8_set(rx, cBOOL(DO_UTF8(TARG))); if ( !(r_flags & REXEC_NOT_FIRST) ) Perl_reg_set_capture_string(aTHX_ rx, (char*)truebase, (char *)strend, |