Re: [ID 20010618.006] some end-anchored regexps hang when using study

Message-Id: <200106191215.NAA17691@crypt.compulink.co.uk>

p4raw-id: //depot/perl@10724

1 files changed, 6 insertions, 0 deletions

diff --git a/util.c b/util.c
index 7a7d5f16d4..d3dbc163a6 100644
--- a/util.c
+++ b/util.c
@@ -781,8 +781,14 @@ Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift
     /* The value of pos we can stop at: */
     stop_pos = SvCUR(bigstr) - end_shift - (SvCUR(littlestr) - 1 - previous);
     if (previous + start_shift > stop_pos) {
+/*
+  stop_pos does not include SvTAIL in the count, so this check is incorrect
+  (I think) - see [ID 20010618.006] and t/op/study.t. HVDS 2001/06/19
+*/
+#if 0
 	if (previous + start_shift == stop_pos + 1) /* A fake '\n'? */
 	    goto check_tail;
+#endif
 	return Nullch;
     }
     while (pos < previous + start_shift) {