diff options
Diffstat (limited to 't/3safesys.t')
| -rw-r--r-- | t/3safesys.t | 6 |
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"); } } |