duh: close file handle

diff --git a/tests/ls-2/tests b/tests/ls-2/tests
index f0e5c2001c4fd5fd2f9dec629e0c756dea8aab25..c63c05e635bdd260de263bba8d93bdaf07473a0b 100755 (executable)
--- 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'
                 }};