From: Jim Meyering <jim@meyering.net>
Date: Sun, 15 Dec 1996 20:29:09 +0000 (+0000)
Subject: .
X-Git-Tag: FILEUTILS-3_14a~104
X-Git-Url: http://git.ipfire.org/gitweb/index.cgi?a=commitdiff_plain;h=20b960db1069f72e0ea864f18ccdcf4fb9b14ded;p=thirdparty%2Fcoreutils.git

.
---

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 295c24e142..f1a4fa40ae 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 295c24e142..f1a4fa40ae 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 295c24e142..f1a4fa40ae 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 295c24e142..f1a4fa40ae 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")
       }