From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 13 May 2003 13:28:42 +0000 (+0000)
Subject: make it easier to reproduce the bug
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7363f9d385a744e58d57696a5dce9ce4ca6ff3d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;