projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
sv_clear can manipulate the arena array directly too.
[p5sagit/p5-mst-13.2.git]
/
regexec.c
diff --git
a/regexec.c
b/regexec.c
index
e058216
..
6e234a2
100644
(file)
--- a/
regexec.c
+++ b/
regexec.c
@@
-518,6
+518,7
@@
Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
|| ((slen = SvCUR(check)) > 1
&& memNE(SvPVX_const(check), s, slen)))
goto report_neq;
+ check_at = s;
goto success_at_start;
}
}