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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f87922c
)
t/loc_tools.pl: Silence 'undef' warning
author
Karl Williamson
<khw@cpan.org>
Thu, 28 Nov 2019 05:30:57 +0000
(22:30 -0700)
committer
Karl Williamson
<khw@cpan.org>
Thu, 28 Nov 2019 05:37:48 +0000
(22:37 -0700)
t/loc_tools.pl
patch
|
blob
|
blame
|
history
diff --git
a/t/loc_tools.pl
b/t/loc_tools.pl
index
86d694d
..
8c1955d
100644
(file)
--- a/
t/loc_tools.pl
+++ b/
t/loc_tools.pl
@@
-340,7
+340,7
@@
sub find_locales ($;$) {
_trylocale("C", $categories, \@Locale, $allow_incompatible);
_trylocale("POSIX", $categories, \@Locale, $allow_incompatible);
- if ($Config{d_has_C_UTF8} eq 'true') {
+ if ($Config{d_has_C_UTF8}
&& $Config{d_has_C_UTF8}
eq 'true') {
_trylocale("C.UTF-8", $categories, \@Locale, $allow_incompatible);
}