cleaner cleanup for t/pod/plainer.t

Message-ID: <Pine.OSF.4.10.10105071810100.317708-100000@aspara.forte.com>

p4raw-id: //depot/perl@10032

diff --git a/t/pod/plainer.t b/t/pod/plainer.t
index 7737ebb..7bc0b8d 100644 (file)
--- a/t/pod/plainer.t
+++ b/t/pod/plainer.t
@@ -33,7 +33,10 @@ while( <DATA> ) {
     printf "ok %d\n", ++$test; 
 }
 
-END { unlink $input, $output }
+END { 
+    1 while unlink $input;
+    1 while unlink $output;
+}
 
 __END__
 =head <> now reads in records