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:
98641f6
)
Stop 80_all_env.t failing when LC_ALL is set
author
Nicholas Clark
<nick@ccl4.org>
Sun, 27 Jun 2004 18:27:43 +0000
(18:27 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 27 Jun 2004 18:27:43 +0000
(18:27 +0000)
p4raw-id: //depot/perl@23001
lib/I18N/LangTags/t/80_all_env.t
patch
|
blob
|
blame
|
history
diff --git
a/lib/I18N/LangTags/t/80_all_env.t
b/lib/I18N/LangTags/t/80_all_env.t
index
050c8f2
..
288f735
100644
(file)
--- a/
lib/I18N/LangTags/t/80_all_env.t
+++ b/
lib/I18N/LangTags/t/80_all_env.t
@@
-37,8
+37,10
@@
$ENV{'IGNORE_WIN32_LOCALE'} = 1; # a hack, just for testing's sake.
print "# Test LANG...\n";
$ENV{'REQUEST_METHOD'} = '';
-$ENV{'LANG'} = 'Eu_MT';
-$ENV{'LANGUAGE'} = '';
+$ENV{'LANG'} = 'Eu_MT';
+$ENV{'LC_ALL'} = '';
+$ENV{'LANGUAGE'} = '';
+$ENV{'LC_MESSAGES'} = '';
ok show( scalar I18N::LangTags::Detect::detect()), "eu-mt";
ok show( j I18N::LangTags::Detect::detect()), q{["eu-mt"]};