diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-13 00:29:41 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-11-13 02:19:12 +0000 |
| commit | de8c53012b7e614137ab875e0d58a92474b317ce (patch) | |
| tree | cc24fc09cc1af2e140a8d29a1bcd652cba6c4b00 /pp.c | |
| parent | 7834bb7eff465724a885b368420973bce2d27483 (diff) | |
| download | perl-de8c53012b7e614137ab875e0d58a92474b317ce.tar.gz | |
Regex Utility Functions and Substituion Fix (XML::Twig core dump)
Message-ID: <9b18b3110611121429g1fc9d6c1t4007dc711f9e8396@mail.gmail.com>
Plus a couple tweaks to ext/re/re.pm and t/op/pat.t to those patches
to apply cleanly.
p4raw-id: //depot/perl@29252
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4652,7 +4652,7 @@ PP(pp_split) const int tail = (rx->reganch & RE_INTUIT_TAIL); SV * const csv = CALLREG_INTUIT_STRING(rx); - len = rx->minlen; + len = rx->minlenret; if (len == 1 && !(rx->reganch & ROPT_UTF8) && !tail) { const char c = *SvPV_nolen_const(csv); while (--limit) { |