From: Chip Salzenberg <chip@perl.com>
Date: Mon, 7 Apr 1997 00:00:00 +0000 (+0000)
Subject: Fix C< $x=''; pos($x)=0; $x=~/\G$/ >
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51aa1f50381e5da72a88a12f8d8c09a5fc718cf7;p=p5sagit%2Fp5-mst-13.2.git

Fix C< $x=''; pos($x)=0; $x=~/\G$/ >
---

diff --git a/pp_hot.c b/pp_hot.c
index 0422017..577b1ca 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -827,7 +827,7 @@ PP(pp_match)
 play_it_again:
     if (global && rx->startp[0]) {
 	t = s = rx->endp[0];
-	if (s >= strend)
+	if ((s + rx->minlen) > strend)
 	    goto nope;
 	if (update_minmatch++)
 	    minmatch = (s == rx->startp[0]);