Tweak t/lib/common.pl to use test.pl's (better) tempfile() function.

1 files changed, 2 insertions, 4 deletions

diff --git a/t/lib/common.pl b/t/lib/common.pl
index 1544df570e..b300400db5 100644
--- a/t/lib/common.pl
+++ b/t/lib/common.pl
@@ -15,9 +15,7 @@ our $pragma_name;
 $| = 1;
 
 my $Is_MacOS = $^O eq 'MacOS';
-my $tmpfile = "tmp0000";
-1 while -e ++$tmpfile;
-END { 1 while unlink $tmpfile }
+my $tmpfile = tempfile();
 
 my @prgs = () ;
 my @w_files = () ;
@@ -129,7 +127,7 @@ for (@prgs){
     my $status = $?;
     $results =~ s/\n+$//;
     # allow expected output to be written as if $prog is on STDIN
-    $results =~ s/tmp\d+/-/g;
+    $results =~ s/$::tempfile_regexp/-/g;
     if ($^O eq 'VMS') {
         # some tests will trigger VMS messages that won't be expected
         $results =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*//;