diff options
| author | Robin Houston <robin@cpan.org> | 2001-12-17 20:27:30 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-17 19:27:40 +0000 |
| commit | 9ea40b93a00f4a251037622d4c436d0ceda2caf3 (patch) | |
| tree | b7568ed97cfd8f1159a1562d1be26d0b4d68ec84 /t | |
| parent | 4192de816d0ff2d984cdb4ba868ae8de3b925f3d (diff) | |
| download | perl-9ea40b93a00f4a251037622d4c436d0ceda2caf3.tar.gz | |
Re: [PATCH] ...while $var = glob(...)
Message-ID: <20011217202730.A17817@puffinry.freeserve.co.uk>
Can't portably unlink open files.
p4raw-id: //depot/perl@13744
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/glob.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/op/glob.t b/t/op/glob.t index 96aab5438c..064202d68e 100755 --- a/t/op/glob.t +++ b/t/op/glob.t @@ -57,6 +57,8 @@ print $i == 2 ? "ok 7\n" : "not ok 7\n"; # Create a file called "0" print open(F, ">0") ? "ok 8\n" : "not ok 8 # $!\n"; +close F; + my $ok = "not ok 9\n"; $ok = "ok 9\n" while my $var = glob("0"); print $ok; |