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 (file)
--- 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