From: Jim Meyering <jim@meyering.net>
Date: Sat, 9 Mar 1996 17:53:59 +0000 (+0000)
Subject: Use /usr/bin/perl.
X-Git-Tag: FILEUTILS-3_12j~16
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e6800f5073314470f97a6529f20e0dfb59205822;p=thirdparty%2Fcoreutils.git

Use /usr/bin/perl.
Remove unused $test.
---

diff --git a/tests/tr/build-script b/tests/tr/build-script
index 6e55d8b0b8..1ae1feb6d0 100755
--- a/tests/tr/build-script
+++ b/tests/tr/build-script
@@ -1,7 +1,6 @@
-#!/p/bin/perl -w
+#!/usr/bin/perl -w
 
 $xx = './tr';
-$test = 0;
 $| = 1;
 
 print "#! /bin/sh\nxx='$xx'\necho testing with $xx=\$xx\nerrors=0\n";
@@ -10,13 +9,12 @@ $expected = '';
 $s1 = '';
 $input = '';
 $flags = '';
-$s1 = '';
+$s2 = '';
 
 while (<>)
   {
     next if (/^\s*#/);
 
-    $test++;
     chop;
     $prog = '($test_name, $input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';';
     eval $prog;