From: Steve Hay <SteveHay@planit.com>
Date: Fri, 28 Jun 2002 12:23:37 +0000 (+0100)
Subject: Re: [ID 20020623.006] Tie::StdHandle produces bogus untie() warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea76dfa3073d73d670fe40809690f6342f2f4549;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;