From 1f875effabdd636c34188b42864a6c7254a10efd Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Mon, 7 Nov 1994 04:36:07 +0000
Subject: Add -w and clean up.

---
 tests/tr/build-script | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'tests')

diff --git a/tests/tr/build-script b/tests/tr/build-script
index a6df348e4..d8000ff91 100755
--- a/tests/tr/build-script
+++ b/tests/tr/build-script
@@ -1,12 +1,16 @@
-#!/p/bin/perl
+#!/p/bin/perl5.000 -w
 
 $tr = '../tr +io 5';
 $tr = 'tr';
 $test = 0;
-$failures = 0;
 $| = 1;
 
 print ":\nerrors=0\n";
+$expected = '';
+$s1 = '';
+$input = '';
+$flags = '';
+$s1 = '';
 
 while (<>)
   {
@@ -14,7 +18,7 @@ while (<>)
 
     $test++;
     chop;
-    $prog = '($input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';';
+    $prog = '($test_name, $input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';';
     eval $prog;
     $in = "t$test.in"; 
     $exp_name = 't' . $test . '.expected'; 
-- 
cgit v1.2.3-54-g00ecf