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

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

diff --git a/t/io/tell.t b/t/io/tell.t
old mode 100755 (executable)
new mode 100644 (file)
index 9527876..8e4f14e
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -1,10 +1,9 @@
 #!./perl
 
-# $RCSfile: tell.t,v $$Revision$$Date$
-
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
 print "1..28\n";
@@ -12,7 +11,7 @@ print "1..28\n";
 $TST = 'TST';
 
 $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or
-              $^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin' or
+              $^O eq 'os2' or $^O eq 'cygwin' or
               $^O =~ /^uwin/);
 
 open($TST, 'harness') || (die "Can't open harness");
@@ -103,9 +102,7 @@ close(OTHER);
 # something else.  ftell() on pipes, fifos, and sockets is defined to
 # return -1.
 
-my $written = "tell_write.txt";
-
-END { 1 while unlink($written) }
+my $written = tempfile();
 
 close($TST);
 open($tst,">$written")  || die "Cannot open $written:$!";