diff options
author | Jim Meyering <jim@meyering.net> | 1996-12-15 20:29:09 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 1996-12-15 20:29:09 +0000 |
commit | 20b960db1069f72e0ea864f18ccdcf4fb9b14ded (patch) | |
tree | 93b84ce02bf44f0a5a7d734200a5119b0655a0ee /tests/cut | |
parent | 8fd3e8664b864afe128ea3b3564fd960f0b83594 (diff) | |
download | coreutils-20b960db1069f72e0ea864f18ccdcf4fb9b14ded.tar.xz |
.
Diffstat (limited to 'tests/cut')
-rw-r--r-- | tests/cut/mk-script.pl | 6 |
1 files changed, 2 insertions, 4 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") } |