regexec.c

Message-ID: <1673159227.20020403111330@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@15701

diff --git a/regexec.c b/regexec.c
index 29b8704..4380fd8 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1015,7 +1015,7 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta
            c1 = *(U8*)m;
            c2 = PL_fold_locale[c1];
          do_exactf:
-           e = HOP3c(strend, -ln, s);
+           e = HOP3c(strend, -(I32)ln, s);
 
            if (norun && e < s)
                e = s;                  /* Due to minlen logic of intuit() */