make make_patchnum.sh (more) portable

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

diff --git a/t/io/tell.t b/t/io/tell.t
index 9527876..09b61a3 100755 (executable)
--- 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";
@@ -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:$!";