From 15b28b225f4919d8362228929a7dd584e7723dfa Mon Sep 17 00:00:00 2001
From: "jake%acutex.net" <>
Date: Sun, 7 Oct 2001 06:22:45 +0000
Subject: Allow compile tests for files that run in taint mode

No review needed for tests at this time. NOT PART OF BUILD
---
 t/001compile.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 't/001compile.t')

diff --git a/t/001compile.t b/t/001compile.t
index fa8bbae06..edaa9cacd 100644
--- a/t/001compile.t
+++ b/t/001compile.t
@@ -53,7 +53,14 @@ $perlapp=$^X;
 foreach $file (@testitems) {
         $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
         next if (!$file); # skip null entries
-	$command = "$perlapp"." -c $file 2>&1";
+        open (FILE,$file);
+        my $bang = <FILE>;
+        close (FILE);
+        my $T = "";
+        if ($bang =~ m/#!\S*perl\s+-.*T/) {
+            $T = "T";
+        }
+	$command = "$perlapp"." -c$T $file 2>&1";
 	$loginfo=`$command`;
 #	  print '@@'.$loginfo.'##';
 	if ($loginfo =~ /syntax ok$/im) {
-- 
cgit v1.2.3-24-g4f1b