.

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 4cfae7c8e86e423b1dacc39f88fee48e6bc1de15..74275c096c03da37b2208e436b1832961fb10c50 100644 (file)
--- 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 4cfae7c8e86e423b1dacc39f88fee48e6bc1de15..74275c096c03da37b2208e436b1832961fb10c50 100644 (file)
--- 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 4cfae7c8e86e423b1dacc39f88fee48e6bc1de15..74275c096c03da37b2208e436b1832961fb10c50 100644 (file)
--- 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 4cfae7c8e86e423b1dacc39f88fee48e6bc1de15..74275c096c03da37b2208e436b1832961fb10c50 100644 (file)
--- 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};