regexec.c
authorNikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Wed, 3 Apr 2002 11:13:30 +0000 (13:13 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 3 Apr 2002 13:49:11 +0000 (13:49 +0000)
Message-ID: <1673159227.20020403111330@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@15701

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() */