From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 9 Jul 1998 01:26:19 +0000 (+0000)
Subject: make t/TEST run 'perl $switches ./foo/test.t' everywhere
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d638aca26c38bab9310e5c2f873f4faf27ece6c7;p=p5sagit%2Fp5-mst-13.2.git

make t/TEST run 'perl $switches ./foo/test.t' everywhere

p4raw-id: //depot/perl@1384
---

diff --git a/t/TEST b/t/TEST
index 990c18b..a302e66 100755
--- a/t/TEST
+++ b/t/TEST
@@ -25,20 +25,6 @@ if ($#ARGV == -1) {
       `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t`);
 }
 
-if ($^O eq 'os2' || $^O eq 'qnx') {
-    $sharpbang = 0;
-}
-else {
-    open(CONFIG, "../config.sh");
-    while (<CONFIG>) {
-	if (/sharpbang='(.*)'/) {
-	    $sharpbang = ($1 eq '#!');
-	    last;
-	}
-    }
-    close(CONFIG);
-}
-
 %infinite = ( 'comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 ); 
 
 _testprogs('perl', @ARGV);
@@ -72,43 +58,30 @@ EOT
 	$te = $test;
 	chop($te);
 	print "$te" . '.' x (18 - length($te));
-	if ($sharpbang) {
-	    eval { chmod 0555, $test } unless -x $test;
 
-	    if ($type eq 'perl') {
-		unless (open(RESULTS, "./$test |")) {
-		    print "$test not executable, " unless -x $test;
-		    print "can't run.\n";
-		}
-	    }
-	    else { 
-		open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test "
-			     ."-run -verbose dcf -log ../compilelog |")
-		    or print "can't compile.\n";
+	open(SCRIPT,"<$test") or die "Can't run $test.\n";
+	$_ = <SCRIPT>;
+	close(SCRIPT);
+	if (/#!.*perl(.*)$/) {
+	    $switch = $1;
+	    if ($^O eq 'VMS') {
+		# Must protect uppercase switches with "" on command line
+		$switch =~ s/-([A-Z]\S*)/"-$1"/g;
 	    }
 	}
 	else {
-	    open(SCRIPT,"$test") or die "Can't run $test.\n";
-	    $_ = <SCRIPT>;
-	    close(SCRIPT);
-	    if (/#!..perl(.*)/) {
-		$switch = $1;
-		if ($^O eq 'VMS') {
-		    # Must protect uppercase switches with "" on command line
-		    $switch =~ s/-([A-Z]\S*)/"-$1"/g;
-		}
-	    }
-	    else {
-		$switch = '';
-	    }
+	    $switch = '';
+	}
 
-	    if ($type eq 'perl') {
-		open(RESULTS,"./perl$switch $test |") || (print "can't run.\n");
-	    }
-	    else {
-		open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test -run -verbose dcf -log ../compilelog |") or print "can't compile.\n";
-	    }
+	if ($type eq 'perl') {
+	    open(RESULTS,"./perl$switch $test |") or print "can't run.\n";
+	}
+	else {
+	    open(RESULTS, "./perl -I../lib ../utils/perlcc ./$test "
+	    		 ."-run -verbose dcf -log ../compilelog |")
+		or print "can't compile.\n";
 	}
+
 	$ok = 0;
 	$next = 0;
 	while (<RESULTS>) {