This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Need to pass a my_perl to S_my_localtime to make threaded builds build.
authorNicholas Clark <nick@ccl4.org>
Sun, 26 Jun 2005 10:28:43 +0000 (10:28 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 26 Jun 2005 10:28:43 +0000 (10:28 +0000)
p4raw-id: //depot/perl@24983

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