From: Jarkko Hietaniemi Date: Mon, 10 Dec 2001 01:56:14 +0000 (+0000) Subject: Clearing locale environment simply doesn't seem to X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93c0717a1298b3d76e75c8cf31c592430287a36e;p=p5sagit%2Fp5-mst-13.2.git Clearing locale environment simply doesn't seem to guarantee that (nl_)langinfo(CODESET) would return nil. (I for example get "ISO8859-1", so maybe there can be per-system default settings at work.) 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;