diff options
author | Brian Fraser <fraserbn@gmail.com> | 2013-09-10 21:43:40 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-09-10 21:44:22 +0100 |
commit | ef3f731dc206849a6d0f9c93a26e03610f8109d0 (patch) | |
tree | 604e2310e4a01c197496ffdccab75a74a9bd11d8 | |
parent | 52d097d99176412041811ec3c8c663e4a912d2c7 (diff) | |
download | perl-ef3f731dc206849a6d0f9c93a26e03610f8109d0.tar.gz |
Fix Windows compilation failure introduced by 946095af78
Patch taken from
Message-ID: <CA+nL+nad64D8hegnphMLnkLLR6dvcAj1X4eqV3CofMg=xdyu_Q@mail.gmail.com>
-rw-r--r-- | regcomp.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -565,9 +565,11 @@ static const scan_data_t zero_scan_data = /* A specialized version of vFAIL2 that works with UTF8f */ #define vFAIL2utf8f(m, a1) STMT_START { \ - if (!SIZE_ONLY) \ - SAVEFREESV(RExC_rx_sv); \ - Simple_vFAIL4(m, a1); \ + const IV offset = RExC_parse - RExC_precomp; \ + if (!SIZE_ONLY) \ + SAVEFREESV(RExC_rx_sv); \ + S_re_croak2(aTHX_ UTF, m, REPORT_LOCATION, a1, \ + REPORT_LOCATION_ARGS(offset)); \ } STMT_END |