=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libio-captureoutput-perl-1.1105/t/capture.t-64-_reset; libio-captureoutput-perl-1.1105/t/capture.t:65:capture sub {system($^X, '-V:osname')}, \$out; libio-captureoutput-perl-1.1105/t/capture.t-66-like($out, "/$^O/", 'capture() caught stdout from external command'); ############################################## libio-captureoutput-perl-1.1105/t/capture_exec.t-14-# low-level debugging libio-captureoutput-perl-1.1105/t/capture_exec.t:15:#print capture_exec($^X, '-e', 'print join "|", @ARGV'), "\n"; libio-captureoutput-perl-1.1105/t/capture_exec.t-16-#print join '|', IO::CaptureOutput::_shell_quote($^X, '-e', 'print join "|", @ARGV'), "\n"; ############################################## libio-captureoutput-perl-1.1105/t/capture_exec.t-18-# simple test libio-captureoutput-perl-1.1105/t/capture_exec.t:19:($out, $err, $suc, $ec) = capture_exec(@perl_e, q[print 'Hello World!'; print STDERR "PID=$$"]); libio-captureoutput-perl-1.1105/t/capture_exec.t-20-is($out, 'Hello World!', 'capture_exec() caught stdout from external command'); ############################################## libio-captureoutput-perl-1.1105/t/wperl.t-49- libio-captureoutput-perl-1.1105/t/wperl.t:50: system($wperl, $pl_path, $outputname); libio-captureoutput-perl-1.1105/t/wperl.t-51-