VC6 warning: result still unsigned.

p4raw-id: //depot/perl@20612

diff --git a/regexec.c b/regexec.c
index 1f36027..464ceaf 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1043,7 +1043,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, -lnc, s);
+           e = HOP3c(strend, -((I32)lnc), s);
 
            if (norun && e < s)
                e = s;                  /* Due to minlen logic of intuit() */