diff options
| author | Steve Hay <SteveHay@planit.com> | 2002-06-28 13:23:37 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-06-28 12:07:49 +0000 |
| commit | ea76dfa3073d73d670fe40809690f6342f2f4549 (patch) | |
| tree | 4f12d43faaf13992ce6a731d34a69ac8ff218b6d /lib/Tie | |
| parent | 1188453a7e1f9a98988ea151175105490eae0960 (diff) | |
| download | perl-ea76dfa3073d73d670fe40809690f6342f2f4549.tar.gz | |
Re: [ID 20020623.006] Tie::StdHandle produces bogus untie() warnings
Message-ID: <3D1C4739.4090002@uk.radan.com>
p4raw-id: //depot/perl@17374
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/Handle.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/Handle.pm b/lib/Tie/Handle.pm index 33b22210f9..d8747f12af 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; |