.

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index 0a87785..ab2c6f1 100644 (file)
--- 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 0a87785..ab2c6f1 100644 (file)
--- 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 0a87785..ab2c6f1 100644 (file)
--- 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 0a87785..ab2c6f1 100644 (file)
--- 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;