Put a watchdog on openpid.t: it has been found to hang in some Win32 smokes.

[p5sagit/p5-mst-13.2.git] / t / io / crlf.t

diff --git a/t/io/crlf.t b/t/io/crlf.t
index c3c23e0..4c97a91 100644 (file)
--- a/t/io/crlf.t
+++ b/t/io/crlf.t
@@ -9,10 +9,7 @@ use Config;
 
 require "test.pl";
 
-my $file = "crlf$$.dat";
-END {
-    1 while unlink($file);
-}
+my $file = tempfile();
 
 if (find PerlIO::Layer 'perlio') {
     plan(tests => 16);