locale.c: Use Strerror(), not strerror()

Perl · Apr 29, 2021 · 34d6f3b · 34d6f3b
1 parent 9feeba9
commit 34d6f3b
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/locale.c b/locale.c
@@ -6554,13 +6554,13 @@ Perl_my_strerror(pTHX_ const int errnum)
 
     /* This function is trivial without threads. */
     if (within_locale_scope) {
-        errstr = savepv(strerror(errnum));
+        errstr = savepv(Strerror(errnum));
     }
     else {
         const char * save_locale = savepv(querylocale_c(LC_MESSAGES));
 
         void_setlocale_c(LC_MESSAGES, "C");
-        errstr = savepv(strerror(errnum));
+        errstr = savepv(Strerror(errnum));
         void_setlocale_c(LC_MESSAGES, save_locale);
         Safefree(save_locale);
     }
@@ -6578,7 +6578,7 @@ Perl_my_strerror(pTHX_ const int errnum)
 #    ifdef HAS_STRERROR_R
 
     if (within_locale_scope) {
-        errstr = savepv(strerror(errnum));
+        errstr = savepv(Strerror(errnum));
     }
     else {
         errstr = savepv(strerror_l(errnum, PL_C_locale_obj));