mirrors/coreutils
0
0
Fork 0
mirror of https://github.com/coreutils/coreutils.git synced 2024-12-05 07:54:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

.

Browse Source
This commit is contained in:
Jim Meyering 1997-01-30 03:14:43 +00:00
parent 188edf1546
commit 9fcda065b6
4 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/cut/mk-script.pl
View File

@ -244,8 +244,10 @@ EOF1
my %valid_via = map {$_ => 1} qw (REDIR FILE PIPE);
my %via_msg_string = (REDIR => '<', FILE => 'F', PIPE => '|');
die "use" if 0&& $Test::input_via{$test_name} && $Test::input_via_default;
die "use" if 0 && $Test::env{$test_name} && $Test::env_default;
# Inhibit warnings about `used only once'.
die if 0 && $Test::input_via{$test_name} && $Test::input_via_default;
die if 0 && $Test::env{$test_name} && $Test::env_default;
my $vias = $Test::input_via{$test_name} || $Test::input_via_default
|| {FILE => 0};

6
tests/head/mk-script.pl
View File

@ -244,8 +244,10 @@ EOF1
my %valid_via = map {$_ => 1} qw (REDIR FILE PIPE);
my %via_msg_string = (REDIR => '<', FILE => 'F', PIPE => '|');
die "use" if 0&& $Test::input_via{$test_name} && $Test::input_via_default;
die "use" if 0 && $Test::env{$test_name} && $Test::env_default;
# Inhibit warnings about `used only once'.
die if 0 && $Test::input_via{$test_name} && $Test::input_via_default;
die if 0 && $Test::env{$test_name} && $Test::env_default;
my $vias = $Test::input_via{$test_name} || $Test::input_via_default
|| {FILE => 0};

6
tests/join/mk-script.pl
View File

@ -244,8 +244,10 @@ EOF1
my %valid_via = map {$_ => 1} qw (REDIR FILE PIPE);
my %via_msg_string = (REDIR => '<', FILE => 'F', PIPE => '|');
die "use" if 0&& $Test::input_via{$test_name} && $Test::input_via_default;
die "use" if 0 && $Test::env{$test_name} && $Test::env_default;
# Inhibit warnings about `used only once'.
die if 0 && $Test::input_via{$test_name} && $Test::input_via_default;
die if 0 && $Test::env{$test_name} && $Test::env_default;
my $vias = $Test::input_via{$test_name} || $Test::input_via_default
|| {FILE => 0};

6
tests/ls/mk-script.pl
View File

@ -244,8 +244,10 @@ EOF1
my %valid_via = map {$_ => 1} qw (REDIR FILE PIPE);
my %via_msg_string = (REDIR => '<', FILE => 'F', PIPE => '|');
die "use" if 0&& $Test::input_via{$test_name} && $Test::input_via_default;
die "use" if 0 && $Test::env{$test_name} && $Test::env_default;
# Inhibit warnings about `used only once'.
die if 0 && $Test::input_via{$test_name} && $Test::input_via_default;
die if 0 && $Test::env{$test_name} && $Test::env_default;
my $vias = $Test::input_via{$test_name} || $Test::input_via_default
|| {FILE => 0};