summaryrefslogtreecommitdiff
path: root/lib/open.t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-04-20 21:27:21 +0000
committerNicholas Clark <nick@ccl4.org>2006-04-20 21:27:21 +0000
commitf22a20695eae00da6d6892456727b75f7267e9ea (patch)
treebfdb21613dfb3bd8e9706a9e0336079078cde4d5 /lib/open.t
parentc6b05a01efa19bab6d6168ada898b9ae1e4177e2 (diff)
downloadperl-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.t8
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