make it easier to reproduce the bug

p4raw-id: //depot/perl@19512

diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm
index c1f3be3..678e739 100644 (file)
--- 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;