From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 10 Dec 2001 01:56:14 +0000 (+0000)
Subject: Clearing locale environment simply doesn't seem to
X-Git-Tag: accepted/trunk/20130322.191538~28928
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=93c0717a1298b3d76e75c8cf31c592430287a36e;p=platform%2Fupstream%2Fperl.git

Clearing locale environment simply doesn't seem to
guarantee that (nl_)langinfo(CODESET) would return nil.
(I for example get "ISO8859-1", so <guess>maybe there can
be per-system default settings at work</guess>.)

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

diff --git a/lib/open.t b/lib/open.t
index 15a38bc..5bc4b6d 100644
--- a/lib/open.t
+++ b/lib/open.t
@@ -6,7 +6,7 @@ BEGIN {
 	require Config; import Config;
 }
 
-use Test::More tests => 16;
+use Test::More tests => 15;
 
 # open::import expects 'open' as its first argument, but it clashes with open()
 sub import {
@@ -26,14 +26,6 @@ is( $^H & $open::hint_bits, 0,
 	'hint bits should not be set in $^H before open import' );
 
 # prevent it from loading I18N::Langinfo, so we can test encoding failures
-{
-    local @INC;
-    $ENV{LC_ALL} = $ENV{LANG} = '';
-    eval { import( 'IN', 'locale' ) };
-    like( $@, qr/Cannot figure out an encoding/, 
-	  'no encoding should be found without $ENV{LANG} or $ENV{LC_ALL}' );
-}
-
 my $warn;
 local $SIG{__WARN__} = sub {
 	$warn .= shift;