[project @ 2005-12-02 12:26:22 by simonmar]

[ghc-base.git] / cbits / regex / regcomp.c

diff --git a/cbits/regex/regcomp.c b/cbits/regex/regcomp.c
index be9fdfa..e58c6d1 100644 (file)
--- a/cbits/regex/regcomp.c
+++ b/cbits/regex/regcomp.c
@@ -2055,7 +2055,8 @@ struct re_guts *g;
                            g->mlen + ssuffix - suffix);
                         suffix++;
                 }
-                ssuffix = pmatches[ssuffix];
+               if (suffix < g->mlen)
+                       ssuffix = pmatches[ssuffix];
         }
 
        free(pmatches);