diff options
| author | Steve Hay <SteveHay@planit.com> | 2006-12-14 16:24:29 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-12-14 16:24:29 +0000 |
| commit | d56c6e853ae19a0276051f71a6e0fae57f8ffcba (patch) | |
| tree | e28836e3689fad301fe58b5250fcb56ce6a741e8 | |
| parent | 52cd570b156cb8d25d4b58a0d3609d882939ce85 (diff) | |
| download | perl-d56c6e853ae19a0276051f71a6e0fae57f8ffcba.tar.gz | |
Silence a warning from (MinGW's) gcc
p4raw-id: //depot/perl@29556
| -rw-r--r-- | ext/Time/Piece/Piece.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Time/Piece/Piece.xs b/ext/Time/Piece/Piece.xs index fa97c4c8aa..868a448e9e 100644 --- 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(); |