diff options
| -rw-r--r-- | perl.h | 4 | ||||
| -rw-r--r-- | time64.c | 8 | ||||
| -rw-r--r-- | util.c | 4 |
3 files changed, 8 insertions, 8 deletions
@@ -7519,8 +7519,8 @@ END_EXTERN_C /* Some critical sections care only that no one else is writing either the * locale nor the environment. XXX This is for the future; in the meantime * just use an exclusive lock */ -#define ENV_LOCALE_READ_LOCK gwENVr_LOCALEr_LOCK -#define ENV_LOCALE_READ_UNLOCK gwENVr_LOCALEr_UNLOCK +#define ENVr_LOCALEr_LOCK gwENVr_LOCALEr_LOCK +#define ENVr_LOCALEr_UNLOCK gwENVr_LOCALEr_UNLOCK /* @@ -156,15 +156,15 @@ static const short safe_years[SOLAR_CYCLE_LENGTH] = { #ifdef USE_REENTRANT_API /* This indicates a platform where we need reentrant versions if have them */ # ifdef PERL_REENTR_USING_LOCALTIME_R -# define LOCALTIME_LOCK ENV_LOCALE_READ_LOCK -# define LOCALTIME_UNLOCK ENV_LOCALE_READ_UNLOCK +# define LOCALTIME_LOCK ENVr_LOCALEr_LOCK +# define LOCALTIME_UNLOCK ENVr_LOCALEr_UNLOCK # else # define LOCALTIME_LOCK gwENVr_LOCALEr_LOCK # define LOCALTIME_UNLOCK gwENVr_LOCALEr_UNLOCK # endif # ifdef PERL_REENTR_USING_GMTIME_R -# define GMTIME_LOCK ENV_LOCALE_READ_LOCK -# define GMTIME_UNLOCK ENV_LOCALE_READ_UNLOCK +# define GMTIME_LOCK ENVr_LOCALEr_LOCK +# define GMTIME_UNLOCK ENVr_LOCALEr_UNLOCK # else # define GMTIME_LOCK gwENVr_LOCALEr_LOCK # define GMTIME_UNLOCK gwENVr_LOCALEr_UNLOCK @@ -3975,11 +3975,11 @@ Perl_init_tm(pTHX_ struct tm *ptm) /* see mktime, strftime and asctime */ PERL_UNUSED_CONTEXT; PERL_ARGS_ASSERT_INIT_TM; (void)time(&now); - ENV_LOCALE_READ_LOCK; + ENVr_LOCALEr_LOCK; my_tm = localtime(&now); if (my_tm) Copy(my_tm, ptm, 1, struct tm); - ENV_LOCALE_READ_UNLOCK; + ENVr_LOCALEr_UNLOCK; #else PERL_UNUSED_CONTEXT; PERL_ARGS_ASSERT_INIT_TM; |