From 17a2ec94a8c0e7704ac5de48eb7b7ab5ccfa4886 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Mon, 16 Dec 1996 00:40:55 +0000
Subject: .

---
 tests/ls/mk-script.pl | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'tests/ls/mk-script.pl')

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;
-- 
cgit v1.2.3-70-g09d2