diff options
author | Brad Gilbert <b2gills@gmail.com> | 2010-12-07 17:13:05 -0600 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-08 11:17:14 -0800 |
commit | c291be4e4b7fb37889d8d8cd3e85082e09c1a5c0 (patch) | |
tree | 52b1a5405b89851b27c7074047fa7222e9e837e8 | |
parent | ba2406ebdc2887b3e8d65685667caf5bd72ee6d0 (diff) | |
download | perl-c291be4e4b7fb37889d8d8cd3e85082e09c1a5c0.tar.gz |
Replaced '1 while unlink' with 'unlink_all' in t/op/stat.t
-rw-r--r-- | t/op/stat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/stat.t b/t/op/stat.t index bc05112f2f..8d1b9f25c9 100644 --- a/t/op/stat.t +++ b/t/op/stat.t @@ -46,7 +46,7 @@ my $tmpfile = tempfile(); my $tmpfile_link = tempfile(); chmod 0666, $tmpfile; -1 while unlink $tmpfile; +unlink_all $tmpfile; open(FOO, ">$tmpfile") || DIE("Can't open temp test file: $!"); close FOO; @@ -551,5 +551,5 @@ SKIP: { END { chmod 0666, $tmpfile; - 1 while unlink $tmpfile; + unlink_all $tmpfile; } |