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.

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");
 	}
 }