diff options
| author | Brad Gilbert <b2gills@gmail.com> | 2010-12-07 17:14:30 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-08 11:17:28 -0800 |
| commit | a29d026106e1b071b8c63d99b7b6f5699e0ed9cf (patch) | |
| tree | 525e832ab7ee42e618a1d44442b8331eb3ff9f9b | |
| parent | 2f23a5a10ee809d60522c032c380c9232eb265f4 (diff) | |
| download | perl-a29d026106e1b071b8c63d99b7b6f5699e0ed9cf.tar.gz | |
Replaced '1 while unlink' with 'unlink_all' in t/run/switches.t
| -rw-r--r-- | t/run/switches.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index ada6eafad8..f636cea43e 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -22,7 +22,7 @@ $TODO = "runperl() unable to emulate echo -n due to pipe bug" if $^O eq 'VMS'; my $r; my @tmpfiles = (); -END { unlink @tmpfiles } +END { unlink_all @tmpfiles } # Tests for -0 @@ -304,7 +304,7 @@ foreach my $switch (split //, "ABbGgHJjKkLNOoPQqRrYyZz123456789_") { local $TODO = ''; # these ones should work on VMS - sub do_i_unlink { 1 while unlink("file", "file.bak") } + sub do_i_unlink { unlink_all("file", "file.bak") } open(FILE, ">file") or die "$0: Failed to create 'file': $!"; print FILE <<__EOF__; |