From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 29 Nov 2000 03:16:59 +0000 (+0000)
Subject: Use "1 while unlink" so that VMS gets clean, too.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95fa9585889625db75bda5635e618796ea469a6e;p=p5sagit%2Fp5-mst-13.2.git

Use "1 while unlink" so that VMS gets clean, too.

p4raw-id: //depot/perl@7913
---

diff --git a/t/lib/filter-util.t b/t/lib/filter-util.t
index 4fc9f58..a0270ee 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" ;
 }