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.

diff --git a/t/3safesys.t b/t/3safesys.t
index a5a2c4cc2c2ae956a41ea32262b5f95c2f695d91..ced6d00edc0449665959a911671f4754745151e9 100644 (file)
--- 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");
        }
 }