This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Signedness nit, found by Jarkko
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 30 Apr 2007 12:21:50 +0000 (12:21 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 30 Apr 2007 12:21:50 +0000 (12:21 +0000)
p4raw-id: //depot/perl@31109

regexec.c

index 85804ab..0b0cc6c 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -5017,7 +5017,7 @@ NULL
                 char *e = PL_regeol;
                 to_uni_fold(n, folded, &foldlen);
 
                 char *e = PL_regeol;
                 to_uni_fold(n, folded, &foldlen);
 
-                if (ibcmp_utf8(folded, 0,  foldlen, 1,
+               if (ibcmp_utf8((const char*) folded, 0,  foldlen, 1,
                               l, &e, 0,  do_utf8)) {
                         sayNO;
                 }
                               l, &e, 0,  do_utf8)) {
                         sayNO;
                 }