summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorzach%zachlipton.com <>2001-09-17 02:52:19 +0200
committerzach%zachlipton.com <>2001-09-17 02:52:19 +0200
commite8d520f73274017b4ffd013bb1f23e7f78db6561 (patch)
treed30a350c65ce04012b9d269ecea71bf6316063a4
parent3f57a81fea0cad7497da58b7f0c1068cdcdc7c0f (diff)
downloadbugzilla-e8d520f73274017b4ffd013bb1f23e7f78db6561.tar.gz
bugzilla-e8d520f73274017b4ffd013bb1f23e7f78db6561.tar.xz
Make this file test for exec calls in addition to system calls that are
one-argument and are therefore insecure. NOT_PART_OF_BUILD, no review needed.
-rw-r--r--t/3safesys.t6
1 files changed, 3 insertions, 3 deletions
diff --git a/t/3safesys.t b/t/3safesys.t
index a5a2c4cc2..ced6d00ed 100644
--- a/t/3safesys.t
+++ b/t/3safesys.t
@@ -47,11 +47,11 @@ foreach $file (@testitems) {
next if (!$file); # skip null entries
$command = "$perlapp -c -It/Support -MSystemexec $file 2>&1";
$loginfo=`$command`;
- if ($loginfo =~ /arguments for Systemexec::system/im) {
- ok(0,"$file DOES NOT use proper system calls");
+ if ($loginfo =~ /arguments for Systemexec::system|exec/im) {
+ ok(0,"$file DOES NOT use proper system or exec calls");
if ($verbose) { print STDERR $loginfo; }
} else {
- ok(1,"$file uses proper system calls");
+ ok(1,"$file uses proper system and exec calls");
}
}