From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 27 Jun 2004 18:27:43 +0000 (+0000)
Subject: Stop 80_all_env.t failing when LC_ALL is set
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8b6d0f352bde4073cdc4efb9df88467905e4ff6;p=p5sagit%2Fp5-mst-13.2.git

Stop 80_all_env.t failing when LC_ALL is set

p4raw-id: //depot/perl@23001
---

diff --git a/lib/I18N/LangTags/t/80_all_env.t b/lib/I18N/LangTags/t/80_all_env.t
index 050c8f2..288f735 100644
--- 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"]};