Re: [ID 20020623.006] Tie::StdHandle produces bogus untie() warnings

Message-ID: <3D1C4739.4090002@uk.radan.com>

p4raw-id: //depot/perl@17374

diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm
index 33b2221..d8747f1 100644 (file)
--- a/lib/Tie/Handle.pm
+++ b/lib/Tie/Handle.pm
@@ -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;