[bugzilla-gnome-org-upstream/4.4] Bug 1137669: 003safesys.t doesn't test any file due to a missing -T argument r=dylan a=glob

[Andrea Veri <av src gnome org>]

commit fc4a6dd5899ebe2e9c731c2c76b1337b2ab543d2
Author: Frédéric Buclin <LpSolit gmail com>
Date:   Mon Mar 16 18:18:49 2015 +0100

    Bug 1137669: 003safesys.t doesn't test any file due to a missing -T argument
    r=dylan a=glob

 t/003safesys.t |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)
---
diff --git a/t/003safesys.t b/t/003safesys.t
index 0d6a215..17593fb 100644
--- a/t/003safesys.t
+++ b/t/003safesys.t
@@ -38,7 +38,16 @@ my $perlapp = "\"$^X\"";
 foreach my $file (@testitems) {
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
     next if (!$file); # skip null entries
-    my $command = "$perlapp -c -It -MSupport::Systemexec $file 2>&1";
+
+    open(my $fh2, '<', $file);
+    my $bang = <$fh2>;
+    close $fh2;
+
+    my $T = "";
+    if ($bang =~ m/#!\S*perl\s+-.*T/) {
+        $T = "T";
+    }
+    my $command = "$perlapp -c$T -It -MSupport::Systemexec $file 2>&1";
     my $loginfo=`$command`;
     if ($loginfo =~ /arguments for Support::Systemexec::(system|exec)/im) {
         ok(0,"$file DOES NOT use proper system or exec calls");