summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorHugo van der Sanden <hv@crypt.org>2005-11-16 14:54:55 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-11-16 15:06:10 +0000
commitc315bfe889135a2987c1252735b745ecccd942d4 (patch)
tree090a9fa87b34b672ee1ac5d3e3bc55c69af64cc5 /regexec.c
parent1a787b952b2a283c0366c148171c3bc150e9489a (diff)
downloadperl-c315bfe889135a2987c1252735b745ecccd942d4.tar.gz
Re: [perl #37688] Unexpected regex failure.
Message-Id: <200511161454.jAGEst117787@zen.crypt.org> p4raw-id: //depot/perl@26137
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index e058216ce6..6e234a2f82 100644
--- 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;
}
}