This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Encode.xs: add an explicit cast to make g++ happier
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 9 Oct 2006 16:54:12 +0000 (19:54 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 9 Oct 2006 14:29:52 +0000 (14:29 +0000)
Message-Id: <20061009135412.47F7A8B3A0@seth.hut.fi>

p4raw-id: //depot/perl@28974

ext/Encode/Encode.xs

index 72a686c..895819b 100644 (file)
@@ -333,7 +333,7 @@ process_utf8(pTHX_ SV* dst, U8* s, U8* e, int check,
                                );
 #if 1 /* perl-5.8.6 and older do not check UTF8_ALLOW_LONG */
         if (strict && uv > PERL_UNICODE_MAX)
-        ulen = -1;
+        ulen = (STRLEN) -1;
 #endif
             if (ulen == -1) {
                 if (strict) {