This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a warning from (MinGW's) gcc
authorSteve Hay <SteveHay@planit.com>
Thu, 14 Dec 2006 16:24:29 +0000 (16:24 +0000)
committerSteve Hay <SteveHay@planit.com>
Thu, 14 Dec 2006 16:24:29 +0000 (16:24 +0000)
p4raw-id: //depot/perl@29556

ext/Time/Piece/Piece.xs

index fa97c4c..868a448 100644 (file)
@@ -755,7 +755,7 @@ label:
                        for (cp = buf; *cp && isupper((unsigned char)*cp); ++cp) 
                             {/*empty*/}
                        if (cp - buf) {
-                               zonestr = alloca(cp - buf + 1);
+                               zonestr = (char *)alloca(cp - buf + 1);
                                strncpy(zonestr, buf, cp - buf);
                                zonestr[cp - buf] = '\0';
                                tzset();