package NewHandle;
require Tie::Handle;
- @ISA = (Tie::Handle);
+ @ISA = qw(Tie::Handle);
sub READ { ... } # Provide a needed method
sub TIEHANDLE { ... } # Overrides inherited method
sub TIEHANDLE
{
my $class = shift;
- my $fh = do { \local *HANDLE};
+ my $fh = \do { local *HANDLE};
bless $fh,$class;
$fh->OPEN(@_) if (@_);
return $fh;