summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>1997-01-30 03:14:43 +0000
committerJim Meyering <jim@meyering.net>1997-01-30 03:14:43 +0000
commit9fcda065b6175195f1adfdd60a9833ba21ed0753 (patch)
tree08eb44e4a596c45836726bbfbb71427ca97036b2
parent188edf1546360dba10183817397fb4bffafde82b (diff)
downloadcoreutils-9fcda065b6175195f1adfdd60a9833ba21ed0753.tar.xz
.
-rw-r--r--tests/cut/mk-script.pl6
-rw-r--r--tests/head/mk-script.pl6
-rw-r--r--tests/join/mk-script.pl6
-rw-r--r--tests/ls/mk-script.pl6
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};