diff options
author | Jim Meyering <jim@meyering.net> | 2003-01-14 15:50:18 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2003-01-14 15:50:18 +0000 |
commit | fb056f448a2ce3a93621f5de3e7bd55e6ba155dd (patch) | |
tree | 4df4e17816222b464165a401618a575f01195e46 | |
parent | 6c1ccdaf7fd01e5ad1582e8a359fda382d6067ba (diff) | |
download | coreutils-fb056f448a2ce3a93621f5de3e7bd55e6ba155dd.tar.xz |
duh: close file handle
-rwxr-xr-x | tests/ls-2/tests | 2 |
1 files changed, 1 insertions, 1 deletions
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' }}; |