This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20020623.006] Tie::StdHandle produces bogus untie() warnings
authorSteve Hay <SteveHay@planit.com>
Fri, 28 Jun 2002 12:23:37 +0000 (13:23 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 28 Jun 2002 12:07:49 +0000 (12:07 +0000)
Message-ID: <3D1C4739.4090002@uk.radan.com>

p4raw-id: //depot/perl@17374

lib/Tie/Handle.pm

index 33b2221..d8747f1 100644 (file)
@@ -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;