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

diff --git a/pp_hot.c b/pp_hot.c
index 0422017..577b1ca 100644 (file)
--- 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]);