From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 10 Mar 2008 21:50:24 +0000 (+0000)
Subject: Re-apply part of #33370 to Time::Piece
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0db9c0cf0061bb06568132efeae44aa9d05179a8;p=p5sagit%2Fp5-mst-13.2.git

Re-apply part of #33370 to Time::Piece

p4raw-id: //depot/perl@33469
---

diff --git a/ext/Time/Piece/Piece.pm b/ext/Time/Piece/Piece.pm
index 9cc4a8b..fc6e730 100644
--- a/ext/Time/Piece/Piece.pm
+++ b/ext/Time/Piece/Piece.pm
@@ -22,7 +22,7 @@ our %EXPORT_TAGS = (
     ':override' => 'internal',
     );
 
-our $VERSION = '1.13';
+our $VERSION = '1.13_01';
 
 bootstrap Time::Piece $VERSION;
 
diff --git a/ext/Time/Piece/Piece.xs b/ext/Time/Piece/Piece.xs
index 64bcfb4..12c3f45 100644
--- a/ext/Time/Piece/Piece.xs
+++ b/ext/Time/Piece/Piece.xs
@@ -188,8 +188,12 @@ my_mini_mktime(struct tm *ptm)
 #define strncasecmp(x,y,n) strnicmp(x,y,n)
 
 #if defined(WIN32)
+#if defined(__BORLANDC__)
+void * __cdecl _EXPFUNC alloca(_SIZE_T __size);
+#else
 #define alloca _alloca
 #endif
+#endif
 
 /* strptime copied from freebsd with the following copyright: */
 /*