diff options
| author | Jim Meyering <jim@meyering.net> | 1997-01-30 03:14:43 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1997-01-30 03:14:43 +0000 |
| commit | 9fcda065b6175195f1adfdd60a9833ba21ed0753 (patch) | |
| tree | 08eb44e4a596c45836726bbfbb71427ca97036b2 | |
| parent | 188edf1546360dba10183817397fb4bffafde82b (diff) | |
| download | coreutils-9fcda065b6175195f1adfdd60a9833ba21ed0753.tar.xz | |
.
| -rw-r--r-- | tests/cut/mk-script.pl | 6 | ||||
| -rw-r--r-- | tests/head/mk-script.pl | 6 | ||||
| -rw-r--r-- | tests/join/mk-script.pl | 6 | ||||
| -rw-r--r-- | tests/ls/mk-script.pl | 6 |
4 files changed, 16 insertions, 8 deletions
diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl index 4cfae7c8e..74275c096 100644 --- a/tests/cut/mk-script.pl +++ b/tests/cut/mk-script.pl @@ -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}; diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl index 4cfae7c8e..74275c096 100644 --- a/tests/head/mk-script.pl +++ b/tests/head/mk-script.pl @@ -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}; diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl index 4cfae7c8e..74275c096 100644 --- a/tests/join/mk-script.pl +++ b/tests/join/mk-script.pl @@ -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}; diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl index 4cfae7c8e..74275c096 100644 --- a/tests/ls/mk-script.pl +++ b/tests/ls/mk-script.pl @@ -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}; |