From e8d520f73274017b4ffd013bb1f23e7f78db6561 Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <>
Date: Mon, 17 Sep 2001 00:52:19 +0000
Subject: [PATCH] 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.
---
 t/3safesys.t | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/3safesys.t b/t/3safesys.t
index a5a2c4cc2c..ced6d00edc 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");
 	}
 }
 
-- 
2.47.2