Change 13581 by jhi@alpha on 2001/12/10 01:56:14
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>.)
Affected files ...
.... //depot/perl/lib/open.t#13 edit
Differences ...
==== //depot/perl/lib/open.t#13 (text) ====
Index: perl/lib/open.t
--- perl/lib/open.t.~1~ Sun Dec 9 19:00:06 2001
+++ perl/lib/open.t Sun Dec 9 19:00:06 2001
@@ -6,7 +6,7 @@
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 @@
'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;
End of Patch.
