diff options
Diffstat (limited to 'lib/Tie/Handle.pm')
| -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; |