diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/cut/mk-script.pl | 9 | ||||
| -rw-r--r-- | tests/head/mk-script.pl | 9 | ||||
| -rw-r--r-- | tests/join/mk-script.pl | 9 | ||||
| -rw-r--r-- | tests/ls/mk-script.pl | 9 |
4 files changed, 20 insertions, 16 deletions
diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl index 0a8778512..ab2c6f112 100644 --- a/tests/cut/mk-script.pl +++ b/tests/cut/mk-script.pl @@ -71,11 +71,13 @@ sub spec_to_list ($$$) return \%h; } -$| = 1; +# ~~~~~~~ main ~~~~~~~~ +{ + $| = 1; -my $xx = $ARGV[0]; + my $xx = $ARGV[0]; -print <<EOF; + print <<EOF; #! /bin/sh # This script was generated automatically by build-script. case \$# in @@ -89,7 +91,6 @@ test "\$srcdir" || srcdir=. test "\$VERBOSE" && \$xx --version 2> /dev/null EOF -{ my %seen; my $test_vector; diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl index 0a8778512..ab2c6f112 100644 --- a/tests/head/mk-script.pl +++ b/tests/head/mk-script.pl @@ -71,11 +71,13 @@ sub spec_to_list ($$$) return \%h; } -$| = 1; +# ~~~~~~~ main ~~~~~~~~ +{ + $| = 1; -my $xx = $ARGV[0]; + my $xx = $ARGV[0]; -print <<EOF; + print <<EOF; #! /bin/sh # This script was generated automatically by build-script. case \$# in @@ -89,7 +91,6 @@ test "\$srcdir" || srcdir=. test "\$VERBOSE" && \$xx --version 2> /dev/null EOF -{ my %seen; my $test_vector; diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl index 0a8778512..ab2c6f112 100644 --- a/tests/join/mk-script.pl +++ b/tests/join/mk-script.pl @@ -71,11 +71,13 @@ sub spec_to_list ($$$) return \%h; } -$| = 1; +# ~~~~~~~ main ~~~~~~~~ +{ + $| = 1; -my $xx = $ARGV[0]; + my $xx = $ARGV[0]; -print <<EOF; + print <<EOF; #! /bin/sh # This script was generated automatically by build-script. case \$# in @@ -89,7 +91,6 @@ test "\$srcdir" || srcdir=. test "\$VERBOSE" && \$xx --version 2> /dev/null EOF -{ my %seen; my $test_vector; diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl index 0a8778512..ab2c6f112 100644 --- a/tests/ls/mk-script.pl +++ b/tests/ls/mk-script.pl @@ -71,11 +71,13 @@ sub spec_to_list ($$$) return \%h; } -$| = 1; +# ~~~~~~~ main ~~~~~~~~ +{ + $| = 1; -my $xx = $ARGV[0]; + my $xx = $ARGV[0]; -print <<EOF; + print <<EOF; #! /bin/sh # This script was generated automatically by build-script. case \$# in @@ -89,7 +91,6 @@ test "\$srcdir" || srcdir=. test "\$VERBOSE" && \$xx --version 2> /dev/null EOF -{ my %seen; my $test_vector; |