Add -w and clean up.

diff --git a/tests/tr/build-script b/tests/tr/build-script
index a6df348e409a270cef589802def6de5c576718d7..d8000ff91a7b7285e5a1d8769fc1d9355b216c4c 100755 (executable)
--- 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';