summaryrefslogtreecommitdiffstats
path: root/t/3safesys.t
diff options
context:
space:
mode:
Diffstat (limited to 't/3safesys.t')
-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");
}
}