From: Nikola Knezevic <indy@tesla.rcub.bg.ac.yu>
Date: Wed, 3 Apr 2002 11:13:30 +0000 (+0200)
Subject: regexec.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6795a346dd967331b0b6120505d98d9c47937054;p=p5sagit%2Fp5-mst-13.2.git

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