Silence a warning from (MinGW's) gcc

p4raw-id: //depot/perl@29556

diff --git a/ext/Time/Piece/Piece.xs b/ext/Time/Piece/Piece.xs
index fa97c4c..868a448 100644 (file)
--- a/ext/Time/Piece/Piece.xs
+++ b/ext/Time/Piece/Piece.xs
@@ -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();