From fb056f448a2ce3a93621f5de3e7bd55e6ba155dd Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Tue, 14 Jan 2003 15:50:18 +0000
Subject: duh: close file handle

---
 tests/ls-2/tests | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/ls-2')

diff --git a/tests/ls-2/tests b/tests/ls-2/tests
index f0e5c2001..c63c05e63 100755
--- a/tests/ls-2/tests
+++ b/tests/ls-2/tests
@@ -34,7 +34,7 @@ my $slink_d = {PRE => sub {symlink '/', 'd' or die "d: $!\n";
                            }};
 my $exe_in_subdir =
   {PRE => sub { mkdir 'j', 0700 or die "creating j: $!\n";
-		open FH, '>j/d' or die "creating j/d: $!\n";
+		(open F, '>j/d') && close F or die "creating j/d: $!\n";
                 chmod 0555, 'j/d' or die "making j/d executable: $!\n";
                 $ENV{LS_COLORS}='ex=01;32'
                 }};
-- 
cgit v1.2.3-70-g09d2