[no subject]

[Patrice Dumas]

branch: master
commit 6e9e656606357aa5883a3058304568c10096101e
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sat Oct 28 22:47:27 2023 +0200

    * tp/Texinfo/XS/main/api_to_perl.c (call_switch_to_global_locale)
    (call_sync_locale): call switch_to_global_locale and sync_locale only
    for the perl versions that have them.  From Gavin.
---
 ChangeLog                        | 6 ++++++
 tp/Texinfo/XS/main/api_to_perl.c | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index ab30582d09..27cdd0ca0d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-10-28  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/XS/main/api_to_perl.c (call_switch_to_global_locale)
+       (call_sync_locale): call switch_to_global_locale and sync_locale only
+       for the perl versions that have them.  From Gavin.
+
 2023-10-28  Gavin Smith <gavinsmith0123@gmail.com>
 
        * po_document/no.us-ascii.po, po_document/no.po:
diff --git a/tp/Texinfo/XS/main/api_to_perl.c b/tp/Texinfo/XS/main/api_to_perl.c
index 76525ab22b..8f8adb3c70 100644
--- a/tp/Texinfo/XS/main/api_to_perl.c
+++ b/tp/Texinfo/XS/main/api_to_perl.c
@@ -51,7 +51,10 @@ call_switch_to_global_locale ()
 {
   dTHX;
 
+#if PERL_VERSION > 27 || (PERL_VERSION == 27 && PERL_SUBVERSION > 8)
+  /* needed due to thread-safe locale handling in newer perls */
   switch_to_global_locale ();
+#endif
 }
 
 void
@@ -59,5 +62,8 @@ call_sync_locale ()
 {
   dTHX;
 
+#if PERL_VERSION > 27 || (PERL_VERSION == 27 && PERL_SUBVERSION > 8)
+  /* needed due to thread-safe locale handling in newer perls */
   sync_locale ();
+#endif
 }