This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
locale.c: Fix uncomplemented 'if' test
[perl5.git]
/
locale.c
diff --git
a/locale.c
b/locale.c
index
0ecce3c
..
64c0d8d
100644
(file)
--- a/
locale.c
+++ b/
locale.c
@@
-1414,7
+1414,7
@@
Perl_my_strerror(pTHX_ const int errnum) {
* LC_MESSAGES */
#ifdef USE_LOCALE_MESSAGES
- if (IN_LC(LC_MESSAGES)) {
+ if (
!
IN_LC(LC_MESSAGES)) {
char * save_locale = setlocale(LC_MESSAGES, NULL);
if (! ((*save_locale == 'C' && save_locale[1] == '\0')
|| strEQ(save_locale, "POSIX")))