X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fopen.pm;h=d384b419c82a012216a00b64aa230b13b1823fa1;hb=584420f022db57225e9644b9c6668ff9f567984a;hp=c2eae57eb3c1bba1eed3904f11564163fa654ffb;hpb=6d5e88a0347ef2c76da06c6ba6c6643e226cbccf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/open.pm b/lib/open.pm
index c2eae57..d384b41 100644
--- a/lib/open.pm
+++ b/lib/open.pm
@@ -1,6 +1,5 @@
 package open;
 use warnings;
-$open::hint_bits = 0x20000; # HINT_LOCALIZE_HH
 
 our $VERSION = '1.05';
 
@@ -57,7 +56,6 @@ sub import {
     my ($class,@args) = @_;
     croak("open: needs explicit list of PerlIO layers") unless @args;
     my $std;
-    $^H |= $open::hint_bits;
     my ($in,$out) = split(/\0/,(${^OPEN} || "\0"), -1);
     while (@args) {
 	my $type = shift(@args);