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;
5
5
use strict;
6
6
use warnings;
7
7
8
- our $VERSION = ' 2.40 ' ; # remember to update version in POD!
8
+ our $VERSION = ' 2.41 ' ; # remember to update version in POD!
9
9
my $XS_VERSION = $VERSION ;
10
10
# $VERSION = eval $VERSION;
11
11
@@ -134,7 +134,7 @@ threads - Perl interpreter-based threads
134
134
135
135
=head1 VERSION
136
136
137
- This document describes threads version 2.40
137
+ This document describes threads version 2.41
138
138
139
139
=head1 WARNING
140
140
Original file line number Diff line number Diff line change @@ -587,7 +587,9 @@ S_ithread_run(void * arg)
587
587
S_set_sigmask (& thread -> initial_sigmask );
588
588
#endif
589
589
590
+ #if PERL_VERSION_GE (5 , 27 , 9 )
590
591
thread_locale_init ();
592
+ #endif
591
593
592
594
PL_perl_destruct_level = 2 ;
593
595
@@ -689,7 +691,9 @@ S_ithread_run(void * arg)
689
691
MUTEX_UNLOCK (& thread -> mutex );
690
692
MUTEX_UNLOCK (& MY_POOL .create_destruct_mutex );
691
693
694
+ #if PERL_VERSION_GE (5 , 27 , 9 )
692
695
thread_locale_term ();
696
+ #endif
693
697
694
698
/* Exit application if required */
695
699
if (exit_app ) {
You can’t perform that action at this time.
0 commit comments