| CARVIEW |
Select Language
HTTP/2 302
server: nginx
date: Mon, 28 Jul 2025 08:46:23 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20170813114525
location: https://web.archive.org/web/20170813114525/https://perl5.git.perl.org/perl.git/commitdiff/
server-timing: captures_list;dur=0.831962, exclusion.robots;dur=0.029275, exclusion.robots.policy;dur=0.012562, esindex;dur=0.015680, cdx.remote;dur=1802.323744, LoadShardBlock;dur=604.374502, PetaboxLoader3.datanode;dur=235.375371, PetaboxLoader3.resolve;dur=228.604365
x-app-server: wwwb-app211
x-ts: 302
x-tr: 2437
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
set-cookie: SERVER=wwwb-app211; path=/
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
HTTP/2 302
server: nginx
date: Mon, 28 Jul 2025 08:46:27 GMT
content-type: text/plain; charset=utf-8
content-length: 0
x-archive-redirect-reason: found capture at 20170813114527
location: https://web.archive.org/web/20170813114527/https://perl5.git.perl.org/perl.git/commitdiff/
server-timing: captures_list;dur=0.476252, exclusion.robots;dur=0.017431, exclusion.robots.policy;dur=0.008537, esindex;dur=0.011025, cdx.remote;dur=2435.287835, LoadShardBlock;dur=266.401924, PetaboxLoader3.datanode;dur=371.610880, load_resource;dur=349.759752, PetaboxLoader3.resolve;dur=187.689483
x-app-server: wwwb-app211
x-ts: 302
x-tr: 3086
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
HTTP/2 200
server: nginx
date: Mon, 28 Jul 2025 08:46:27 GMT
content-type: application/xhtml+xml; charset=utf-8
x-archive-orig-date: Sun, 13 Aug 2017 11:45:26 GMT
x-archive-orig-server: Apache/2.2.15 (CentOS)
x-archive-orig-connection: close
x-archive-orig-transfer-encoding: chunked
x-archive-guessed-content-type: text/html
x-archive-guessed-charset: utf-8
memento-datetime: Sun, 13 Aug 2017 11:45:27 GMT
link: ; rel="first memento"; datetime="Fri, 30 Oct 2015 09:39:26 GMT", ; rel="last memento"; datetime="Thu, 01 Jun 2023 10:18:12 GMT"
content-security-policy: default-src 'self' 'unsafe-eval' 'unsafe-inline' data: blob: archive.org web.archive.org web-static.archive.org wayback-api.archive.org athena.archive.org analytics.archive.org pragma.archivelab.org wwwb-events.archive.org
x-archive-src: falconk_archivebot_urls-gist_githubusercontent_com-pmnomeetup_txt_20170811/ntent.com-pmnomeetup.txt-inf-20170811-001849-9xz5m-00014.warc.gz
server-timing: captures_list;dur=0.461424, exclusion.robots;dur=0.019062, exclusion.robots.policy;dur=0.009216, esindex;dur=0.011720, cdx.remote;dur=272.824015, LoadShardBlock;dur=252.478624, PetaboxLoader3.datanode;dur=228.397058, load_resource;dur=65.701857
x-app-server: wwwb-app211
x-ts: 200
x-tr: 639
server-timing: TR;dur=0,Tw;dur=0,Tc;dur=0
x-location: All
x-rl: 0
x-na: 0
x-page-cache: MISS
server-timing: MISS
x-nid: DigitalOcean
referrer-policy: no-referrer-when-downgrade
permissions-policy: interest-cohort=()
Perl 5 - perl.git/commitdiff
summary | committers | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 5277094)
raw | patch | inline | side by side (parent: 5277094)
| author | Karl Williamson <khw@cpan.org> |  |
| Sun, 16 Jul 2017 00:18:47 +0000 (18:18 -0600) | ||
| committer | Karl Williamson <khw@cpan.org> | |
| Sun, 13 Aug 2017 04:53:11 +0000 (22:53 -0600) |
strerror_l makes the my_strerror function trivial, as it doesn't have to
worry about critical sections, etc. Even on unthreaded perls, it avoids
having to change the current locale, and then change it back.
worry about critical sections, etc. Even on unthreaded perls, it avoids
having to change the current locale, and then change it back.
| locale.c | patch | blob | blame | history |
diff --git a/locale.c b/locale.c
--- a/locale.c
+++ b/locale.c
const bool within_locale_scope = IN_LC(LC_MESSAGES);
-# ifdef USE_POSIX_2008_LOCALE
+# if defined(HAS_POSIX_2008_LOCALE) && defined(HAS_STRERROR_L)
+
+ /* This function is trivial if we have strerror_l() */
+
+ if (within_locale_scope) {
+ errstr = strerror(errnum);
+ }
+ else {
+ errstr = strerror_l(errnum, PL_C_locale_obj);
+ }
+
+ errstr = savepv(errstr);
+
+# else /* Doesn't have strerror_l(). */
+
+# ifdef USE_POSIX_2008_LOCALE
+
locale_t save_locale = NULL;
-# else
+
+# else
+
char * save_locale = NULL;
bool locale_is_C = FALSE;
* setlocale() ) */
LOCALE_LOCK;
-# endif
+# endif
DEBUG_Lv(PerlIO_printf(Perl_debug_log,
"my_strerror called with errnum %d\n", errnum));
"uselocale returned 0x%p\n", save_locale));
}
-# else /* Not thread-safe build */
+# else /* Not thread-safe build */
save_locale = setlocale(LC_MESSAGES, NULL);
if (! save_locale) {
}
}
-# endif
+# endif
} /* end of ! within_locale_scope */
else {
}
}
-# else
+# else
if (save_locale && ! locale_is_C) {
if (! setlocale(LC_MESSAGES, save_locale)) {
LOCALE_UNLOCK;
-# endif
+# endif
+# endif /* End of doesn't have strerror_l */
#endif /* End of does have locale messages */
#ifdef DEBUGGING