Re: the remaining bugs in \x escapes (was Re: [PATCH] oct and hex in glorious 64...

[p5sagit/p5-mst-13.2.git] / t / pod / plainer.t

diff --git a/t/pod/plainer.t b/t/pod/plainer.t
index 7737ebb..293edbb 100644 (file)
--- a/t/pod/plainer.t
+++ b/t/pod/plainer.t
@@ -31,9 +31,14 @@ while( <DATA> ) {
        print "not ";
     }
     printf "ok %d\n", ++$test; 
+    close OUT;
+    close IN;
 }
 
-END { unlink $input, $output }
+END { 
+    1 while unlink $input;
+    1 while unlink $output;
+}
 
 __END__
 =head <> now reads in records