This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Silence compiler warning
authorKarl Williamson <khw@cpan.org>
Mon, 21 Dec 2020 22:19:10 +0000 (15:19 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 21 Dec 2020 22:21:00 +0000 (15:21 -0700)
regexec.c

index 61a3075..2a5fa54 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -9284,7 +9284,7 @@ NULL
 
                 n = (utf8_target)
                     ? utf8_length((U8 *) ST.oldloc, (U8 *) locinput)
-                    : locinput - ST.oldloc;
+                    : (STRLEN) (locinput - ST.oldloc);
 
 
                 /* Here is at the beginning of a character that meets the mask