File tree Expand file tree Collapse file tree 2 files changed +6
-2
lines changed Expand file tree Collapse file tree 2 files changed +6
-2
lines changed Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ use 5.008;
55use strict;
66use warnings;
77
8- our $VERSION = ' 2.40 ' ; # remember to update version in POD!
8+ our $VERSION = ' 2.41 ' ; # remember to update version in POD!
99my $XS_VERSION = $VERSION ;
1010# $VERSION = eval $VERSION;
1111
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
134134
135135=head1 VERSION
136136
137- This document describes threads version 2.40
137+ This document describes threads version 2.41
138138
139139=head1 WARNING
140140
Original file line number Diff line number Diff line change @@ -587,7 +587,9 @@ S_ithread_run(void * arg)
587587 S_set_sigmask (& thread -> initial_sigmask );
588588#endif
589589
590+ #if PERL_VERSION_GE (5 , 27 , 9 )
590591 thread_locale_init ();
592+ #endif
591593
592594 PL_perl_destruct_level = 2 ;
593595
@@ -689,7 +691,9 @@ S_ithread_run(void * arg)
689691 MUTEX_UNLOCK (& thread -> mutex );
690692 MUTEX_UNLOCK (& MY_POOL .create_destruct_mutex );
691693
694+ #if PERL_VERSION_GE (5 , 27 , 9 )
692695 thread_locale_term ();
696+ #endif
693697
694698 /* Exit application if required */
695699 if (exit_app ) {
You can’t perform that action at this time.
0 commit comments