From: Jim Meyering <jim@meyering.net>
Date: Mon, 16 Dec 1996 00:40:55 +0000 (+0000)
Subject: .
X-Git-Tag: FILEUTILS-3_14a~99
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=17a2ec94a8c0e7704ac5de48eb7b7ab5ccfa4886;p=platform%2Fupstream%2Fcoreutils.git

.
---

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