XXX perl.h: Debugging mutex lock'

Perl · Sep 13, 2023 · 955eed9 · 955eed9
1 parent 7b6e7ad
commit 955eed9
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/perl.h b/perl.h
@@ -7186,6 +7186,23 @@ the plain locale pragma without a parameter (S<C<use locale>>) is in effect.
                                     LOCALE_TERM_POSIX_2008_;                \
                                     MUTEX_DESTROY(&PL_locale_mutex);        \
                                 } 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
 
 /* There are some locale-related functions which may need locking only because