From: Jim Meyering <jim@meyering.net>
Date: Mon, 7 Nov 1994 04:36:07 +0000 (+0000)
Subject: Add -w and clean up.
X-Git-Tag: textutils-1_12_1~453
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1f875effabdd636c34188b42864a6c7254a10efd;p=thirdparty%2Fcoreutils.git

Add -w and clean up.
---

diff --git a/tests/tr/build-script b/tests/tr/build-script
index a6df348e40..d8000ff91a 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';