This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Remove some unnecessary mutex locks
authorKarl Williamson <khw@cpan.org>
Tue, 8 Dec 2020 20:25:36 +0000 (13:25 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 8 Dec 2020 20:29:12 +0000 (13:29 -0700)
These aren't necessary as the called function has its own lock until
done copying into the local structure.

And these were breaking blead on Windows, as they are no longer defined.
The smoke I ran included more commits beyond the breaking one, so I
didn't catch it.

locale.c

index 9eb49be..bee9c2e 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -3039,8 +3039,6 @@ S_my_nl_langinfo(const int item, bool toggle)
             case MON_5: case MON_6: case MON_7: case MON_8:
             case MON_9: case MON_10: case MON_11: case MON_12:
 
-                LOCALE_LOCK_;
-
                 init_tm(&tm);   /* Precaution against core dumps */
                 tm.tm_sec = 30;
                 tm.tm_min = 30;
@@ -3050,7 +3048,6 @@ S_my_nl_langinfo(const int item, bool toggle)
                 tm.tm_mon = 0;
                 switch (item) {
                     default:
-                        LOCALE_UNLOCK_;
                         Perl_croak(aTHX_
                                     "panic: %s: %d: switch case: %d problem",
                                        __FILE__, __LINE__, item);
@@ -3226,8 +3223,6 @@ S_my_nl_langinfo(const int item, bool toggle)
                  * wday was chosen because its range is all a single digit.
                  * Things like tm_sec have two digits as the minimum: '00' */
 
-                LOCALE_UNLOCK_;
-
                 retval = PL_langinfo_buf;
 
                 /* If to return the format, not the value, overwrite the buffer