From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 2 Nov 2005 04:54:52 +0000 (+0000)
Subject: Lowercase barewords considered harmful to your health.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5fc3e7087d5aeade68cb64da300c8b07e550cc2;p=p5sagit%2Fp5-mst-13.2.git

Lowercase barewords considered harmful to your health.

p4raw-id: //depot/perl@25949
---

diff --git a/t/io/fs.t b/t/io/fs.t
index 4dd188e..ecb014f 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -78,10 +78,10 @@ SKIP: {
     is((umask(0)&0777), 022, 'umask'),
 }
 
-open(fh,'>x') || die "Can't create x";
-close(fh);
-open(fh,'>a') || die "Can't create a";
-close(fh);
+open(FH,'>x') || die "Can't create x";
+close(FH);
+open(FH,'>a') || die "Can't create a";
+close(FH);
 
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
     $blksize,$blocks);
@@ -405,8 +405,8 @@ SKIP: {
       if $^O eq 'cygwin';
 
     chdir './tmp';
-    open(fh,'>x') || die "Can't create x";
-    close(fh);
+    open(FH,'>x') || die "Can't create x";
+    close(FH);
     rename('x', 'X');
 
     # this works on win32 only, because fs isn't casesensitive