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

[perl5.git] / pp_sys.c

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
 }
 
 #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;
 {
     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
 
     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
 #else
        tmbuf = localtime(&when);
 #endif