diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2003-05-13 13:28:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2003-05-13 13:28:42 +0000 |
| commit | f7363f9d385a744e58d57696a5dce9ce4ca6ff3d (patch) | |
| tree | cf995b406371de42173768013a784fcc96d793c3 /lib | |
| parent | e0cf91d56b571fae04d6e52c0045b5e6dc4f5eae (diff) | |
| download | perl-f7363f9d385a744e58d57696a5dce9ce4ca6ff3d.tar.gz | |
make it easier to reproduce the bug
p4raw-id: //depot/perl@19512
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Tie/File.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm index c1f3be347d..678e739897 100644 --- a/lib/Tie/File.pm +++ b/lib/Tie/File.pm @@ -94,6 +94,7 @@ sub TIEARRAY { } elsif (ref $file) { croak "usage: tie \@array, $pack, filename, [option => value]..."; } else { + # $fh = \do { local *FH }; # XXX this is buggy if ($] < 5.006) { # perl 5.005 and earlier don't autovivify filehandles require Symbol; |