From d8307d9f91ae1fcc0c61542febc878001fa9827c Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Thu, 11 Mar 2021 10:40:04 -0700
Subject: [PATCH] XXX perl.h: Debugging mutex lock'

---
 perl.h | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/perl.h b/perl.h
index 6bfa94cb35c1..3b26cae5ed0c 100644
--- a/perl.h
+++ b/perl.h
@@ -6723,6 +6723,23 @@ the plain locale pragma without a parameter (S<C<use locale>>) is in effect.
                                     MUTEX_DESTROY(&PL_locale_mutex);        \
                                     LOCALE_TERM_POSIX_2008_;                \
                                 } STMT_END
+#  if 0
+            /*dTHX;*/\
+            LOCALE_TERM_POSIX_2008_;                                        \
+            /*{ char buf[1024];                                         \
+                    Size_t len = my_snprintf(buf, sizeof(buf),              \
+                                    "%s: %d: terminaing locale %p\n",       \
+                                    __FILE__, __LINE__, &PL_locale_mutex);  \
+                    PERL_UNUSED_RESULT(PerlLIO_write(2, buf, len));};*/       \
+            /*Perl_set_numeric_standard(aTHX);*/                            \
+            /*DEBUG_L( PerlIO_printf(Perl_debug_log,                           \
+                               "%s: %d: now standard=%p\n",                 \
+                               __FILE__, __LINE__, &PL_locale_mutex););*/      \
+            MUTEX_DESTROY(&PL_locale_mutex);                                \
+            /*DEBUG_L(PerlIO_printf(Perl_debug_log,                           \
+                               "%s: %dabout to destroy=%p\n",          \
+                                __FILE__, __LINE__, &PL_locale_mutex));*/
+#  endif
 #endif
 
 #ifndef LOCALE_LOCK_