From 20b960db1069f72e0ea864f18ccdcf4fb9b14ded Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 15 Dec 1996 20:29:09 +0000
Subject: [PATCH] .

---
 tests/cut/mk-script.pl  | 6 ++----
 tests/head/mk-script.pl | 6 ++----
 tests/join/mk-script.pl | 6 ++----
 tests/ls/mk-script.pl   | 6 ++----
 4 files changed, 8 insertions(+), 16 deletions(-)

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 295c24e14..f1a4fa40a 100644
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -114,10 +114,8 @@ foreach $test_vector (@Test::t)
     my ($test_name, $flags, $in_spec, $expected, $e_ret_code)
 	= @{$test_vector};
 
-    my $h = spec_to_list ($in_spec, $test_name, 'in');
+    my $in = spec_to_list ($in_spec, $test_name, 'in');
 
-    my $in1 = "t$test_name.in1";
-    my $in2 = "t$test_name.in2";
     my $exp_name = "t$test_name.exp";
     my $out = "t$test_name.out";
 
@@ -129,7 +127,7 @@ foreach $test_vector (@Test::t)
 
     my @srcdir_rel_in_file;
     my $f;
-    foreach $f (@{ $h->{ALL_FILES} })
+    foreach $f (@{ $in->{ALL_FILES} })
       {
 	push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index 295c24e14..f1a4fa40a 100644
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -114,10 +114,8 @@ foreach $test_vector (@Test::t)
     my ($test_name, $flags, $in_spec, $expected, $e_ret_code)
 	= @{$test_vector};
 
-    my $h = spec_to_list ($in_spec, $test_name, 'in');
+    my $in = spec_to_list ($in_spec, $test_name, 'in');
 
-    my $in1 = "t$test_name.in1";
-    my $in2 = "t$test_name.in2";
     my $exp_name = "t$test_name.exp";
     my $out = "t$test_name.out";
 
@@ -129,7 +127,7 @@ foreach $test_vector (@Test::t)
 
     my @srcdir_rel_in_file;
     my $f;
-    foreach $f (@{ $h->{ALL_FILES} })
+    foreach $f (@{ $in->{ALL_FILES} })
       {
 	push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index 295c24e14..f1a4fa40a 100644
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -114,10 +114,8 @@ foreach $test_vector (@Test::t)
     my ($test_name, $flags, $in_spec, $expected, $e_ret_code)
 	= @{$test_vector};
 
-    my $h = spec_to_list ($in_spec, $test_name, 'in');
+    my $in = spec_to_list ($in_spec, $test_name, 'in');
 
-    my $in1 = "t$test_name.in1";
-    my $in2 = "t$test_name.in2";
     my $exp_name = "t$test_name.exp";
     my $out = "t$test_name.out";
 
@@ -129,7 +127,7 @@ foreach $test_vector (@Test::t)
 
     my @srcdir_rel_in_file;
     my $f;
-    foreach $f (@{ $h->{ALL_FILES} })
+    foreach $f (@{ $in->{ALL_FILES} })
       {
 	push (@srcdir_rel_in_file, "\$srcdir/$f")
       }
diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index 295c24e14..f1a4fa40a 100644
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -114,10 +114,8 @@ foreach $test_vector (@Test::t)
     my ($test_name, $flags, $in_spec, $expected, $e_ret_code)
 	= @{$test_vector};
 
-    my $h = spec_to_list ($in_spec, $test_name, 'in');
+    my $in = spec_to_list ($in_spec, $test_name, 'in');
 
-    my $in1 = "t$test_name.in1";
-    my $in2 = "t$test_name.in2";
     my $exp_name = "t$test_name.exp";
     my $out = "t$test_name.out";
 
@@ -129,7 +127,7 @@ foreach $test_vector (@Test::t)
 
     my @srcdir_rel_in_file;
     my $f;
-    foreach $f (@{ $h->{ALL_FILES} })
+    foreach $f (@{ $in->{ALL_FILES} })
       {
 	push (@srcdir_rel_in_file, "\$srcdir/$f")
       }