diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-29 03:16:59 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-29 03:16:59 +0000 |
| commit | 95fa9585889625db75bda5635e618796ea469a6e (patch) | |
| tree | 29c89d2cf06f7950d5298a01496f2d2178e7e92e /t | |
| parent | 0f568861449f537ad23fc7b382486cdfba6e49ef (diff) | |
| download | perl-95fa9585889625db75bda5635e618796ea469a6e.tar.gz | |
Use "1 while unlink" so that VMS gets clean, too.
p4raw-id: //depot/perl@7913
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/filter-util.t | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/t/lib/filter-util.t b/t/lib/filter-util.t index 4fc9f58b44..a0270ee8b7 100644 --- a/t/lib/filter-util.t +++ b/t/lib/filter-util.t @@ -777,15 +777,15 @@ EOM } END { - unlink $filename ; - unlink $filenamebin ; - unlink "${module}.pm" ; - unlink "${module2}.pm" ; - unlink "${module3}.pm" ; - unlink "${module4}.pm" ; - unlink "${module5}.pm" ; - unlink $nested ; - unlink "${block}.pm" ; + 1 while unlink $filename ; + 1 while unlink $filenamebin ; + 1 while unlink "${module}.pm" ; + 1 while unlink "${module2}.pm" ; + 1 while unlink "${module3}.pm" ; + 1 while unlink "${module4}.pm" ; + 1 while unlink "${module5}.pm" ; + 1 while unlink $nested ; + 1 while unlink "${block}.pm" ; } |