Skip to content

Commit 0637dad

Browse files
committed
threads: thread_locale_init/term() needs 5.27.9 or later
1 parent d033adf commit 0637dad

File tree

2 files changed

+6
-2
lines changed

2 files changed

+6
-2
lines changed

dist/threads/lib/threads.pm

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ use 5.008;
55
use strict;
66
use warnings;
77

8-
our $VERSION = '2.40'; # remember to update version in POD!
8+
our $VERSION = '2.41'; # remember to update version in POD!
99
my $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

dist/threads/threads.xs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff 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) {

0 commit comments

Comments
 (0)