X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTie%2FHandle.pm;h=d8747f12af1db43d8e2f6e98fd118ae9c0604c94;hb=46471bde41ad0777edf7b89818df6730e8b55c20;hp=8e40589c69ac591db89b22095343dfab03c941a7;hpb=14fe70c2d1778829732c0549106909ab5b329425;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm
index 8e40589..d8747f1 100644
--- a/lib/Tie/Handle.pm
+++ b/lib/Tie/Handle.pm
@@ -1,6 +1,6 @@
 package Tie::Handle;
 
-use 5.6.1;
+use 5.006_001;
 our $VERSION = '4.1';
 
 =head1 NAME
@@ -12,7 +12,7 @@ Tie::Handle, Tie::StdHandle  - base class definitions for tied handles
     package NewHandle;
     require Tie::Handle;
 
-    @ISA = (Tie::Handle);
+    @ISA = qw(Tie::Handle);
 
     sub READ { ... }		# Provide a needed method
     sub TIEHANDLE { ... }	# Overrides inherited method
@@ -201,7 +201,7 @@ use Carp;
 sub TIEHANDLE 
 {
  my $class = shift;
- my $fh    = do { \local *HANDLE};
+ my $fh    = \do { local *HANDLE};
  bless $fh,$class;
  $fh->OPEN(@_) if (@_);
  return $fh;