projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Upgrade to Getopt::Long 2.33_03.
[p5sagit/p5-mst-13.2.git]
/
lib
/
Tie
/
Handle.pm
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;