From 1eb146483f545e0c20ac9c7582f3996b7461c3f9 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Mon, 7 Sep 1998 14:07:23 +0000
Subject: (_create_file): Don't include $$ in temp file name. (run_tests): Use
 shorter suffixes for temp file names.

---
 tests/Fetish.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tests/Fetish.pm')

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 9eaad9b76..038c50b9f 100644
--- a/tests/Fetish.pm
+++ b/tests/Fetish.pm
@@ -12,7 +12,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.2 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my @Types = qw (IN OUT ERR EXIT PRE POST);
@@ -73,7 +73,7 @@ sub _create_file ($$$$)
     }
   else
     {
-      $file = "$test_name-$$.$Global_count";
+      $file = "$test_name.$Global_count";
       ++$Global_count;
     }
 
@@ -238,8 +238,8 @@ sub run_tests ($$$$$)
       warn "$test_name...\n" if $verbose;
       &{$expect->{PRE}} if $expect->{PRE};
       my %tmp;
-      $tmp{OUT} = "$test_name-out";
-      $tmp{ERR} = "$test_name-err";
+      $tmp{OUT} = "$test_name.O";
+      $tmp{ERR} = "$test_name.E";
       push @junk_files, $tmp{OUT}, $tmp{ERR};
       my @cmd = ($prog, @args, "> $tmp{OUT}", "2> $tmp{ERR}");
       my $cmd_str = join ' ', @cmd;
-- 
cgit v1.2.3-70-g09d2