diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-04-20 21:27:21 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-04-20 21:27:21 +0000 |
commit | f22a20695eae00da6d6892456727b75f7267e9ea (patch) | |
tree | bfdb21613dfb3bd8e9706a9e0336079078cde4d5 /lib/open.t | |
parent | c6b05a01efa19bab6d6168ada898b9ae1e4177e2 (diff) | |
download | perl-f22a20695eae00da6d6892456727b75f7267e9ea.tar.gz |
Remove the last traces of explicitly setting HINT_LOCALIZE_HH from
perl modules.
p4raw-id: //depot/perl@27927
Diffstat (limited to 'lib/open.t')
-rw-r--r-- | lib/open.t | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/open.t b/lib/open.t index 554798b9d6..5c4c8758ad 100644 --- a/lib/open.t +++ b/lib/open.t @@ -7,7 +7,7 @@ BEGIN { require Config; import Config; } -use Test::More tests => 16; +use Test::More tests => 14; # open::import expects 'open' as its first argument, but it clashes with open() sub import { @@ -22,10 +22,6 @@ eval { import() }; like( $@, qr/needs explicit list of PerlIO layers/, 'import should fail without args' ); -# the hint bits shouldn't be set yet -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 my $warn; local $SIG{__WARN__} = sub { @@ -48,8 +44,6 @@ like( $warn, qr/Unknown PerlIO layer/, # see if it sets the magic variables appropriately import( 'IN', ':crlf' ); -ok( $^H & $open::hint_bits, - 'hint bits should be set in $^H after open import' ); is( $^H{'open_IN'}, 'crlf', 'should have set crlf layer' ); # it should reset them appropriately, too |