From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 26 Jun 2005 10:28:43 +0000 (+0000)
Subject: Need to pass a my_perl to S_my_localtime to make threaded builds build.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89261a6c6a337d08799db0ac0d518e62472ccf40;p=p5sagit%2Fp5-mst-13.2.git

Need to pass a my_perl to S_my_localtime to make threaded builds build.

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

diff --git a/pp_sys.c b/pp_sys.c
index eba3ea3..18c860b 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4508,7 +4508,7 @@ PP(pp_localtime)
 }
 
 #ifdef LOCALTIME_EDGECASE_BROKEN
-static struct tm *S_my_localtime (Time_t *tp)
+static struct tm *S_my_localtime (pTHX_ Time_t *tp)
 {
     auto time_t     T;
     auto struct tm *P;
@@ -4567,7 +4567,7 @@ PP(pp_gmtime)
 
     if (PL_op->op_type == OP_LOCALTIME)
 #ifdef LOCALTIME_EDGECASE_BROKEN
-	tmbuf = S_my_localtime(&when);
+	tmbuf = S_my_localtime(aTHX_ &when);
 #else
 	tmbuf = localtime(&when);
 #endif