=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfilter-perl-1.60/t/decrypt.t-60-writeFile($filename, $script) ; libfilter-perl-1.60/t/decrypt.t:61:`$Perl $Inc decrypt/encrypt $filename` ; libfilter-perl-1.60/t/decrypt.t-62-writeFile('plain', 'print "This is plain text\n" ; 1 ;') ; libfilter-perl-1.60/t/decrypt.t-63- libfilter-perl-1.60/t/decrypt.t:64:my $a = `$Perl $Inc $filename 2>&1` ; libfilter-perl-1.60/t/decrypt.t-65- ############################################## libfilter-perl-1.60/t/decrypt.t-78- $ENV{'PERLDB_OPTS'} = 'noTTY' ; libfilter-perl-1.60/t/decrypt.t:79: $a = `$Perl $Inc -d $filename 2>&1` ; libfilter-perl-1.60/t/decrypt.t-80- ok(3, $a =~ /debugger disabled/) or diag("Got '$a'");; ############################################## libfilter-perl-1.60/t/decrypt.t-85-# case 2 - Perl Compiler in use libfilter-perl-1.60/t/decrypt.t:86:$a = `$Perl $Inc -MCarp -MO=Deparse $filename 2>&1` ; libfilter-perl-1.60/t/decrypt.t-87-#print "[[$a]]\n" ; ############################################## libfilter-perl-1.60/t/decrypt.t-101- libfilter-perl-1.60/t/decrypt.t:102:$a = `$Perl $Inc $filename 2>&1` ; libfilter-perl-1.60/t/decrypt.t-103-ok(5, $a =~ /bad encryption format/) or diag("Got '$a'"); ############################################## libfilter-perl-1.60/t/decrypt.t-110- libfilter-perl-1.60/t/decrypt.t:111:$a = `$Perl $Inc $filename 2>&1` ; libfilter-perl-1.60/t/decrypt.t-112-ok(6, $a =~ /too many filters/) or diag("Got '$a'"); ############################################## libfilter-perl-1.60/t/decrypt.t-130-} else { libfilter-perl-1.60/t/decrypt.t:131: my $ori = `$Perl -C $Inc $filename` ; libfilter-perl-1.60/t/decrypt.t:132: `$Perl $Inc decrypt/encrypt $filename` ; libfilter-perl-1.60/t/decrypt.t:133: $a = `$Perl -C $Inc $filename 2>&1` ; libfilter-perl-1.60/t/decrypt.t-134- if ($a eq $ori) { ############################################## libfilter-perl-1.60/t/m4.t-90- libfilter-perl-1.60/t/m4.t:91:$a = `$Perl $Inc $m4_script 2>&1`; libfilter-perl-1.60/t/m4.t-92-ok(2, $a eq $expected_output); libfilter-perl-1.60/t/m4.t-93- libfilter-perl-1.60/t/m4.t:94:$a = `$Perl $Inc $m4_prefix_script 2>&1`; libfilter-perl-1.60/t/m4.t-95-ok(3, $a eq $expected_prefix_output); ############################################## libfilter-perl-1.60/t/tee.t-50- libfilter-perl-1.60/t/tee.t:51:my $a = `$Perl $Inc $file 2>&1` ; libfilter-perl-1.60/t/tee.t-52- ############################################## libfilter-perl-1.60/t/tee.t-70- chmod 0444, $tee1 ; libfilter-perl-1.60/t/tee.t:71: $a = `$Perl $Inc $file 2>&1` ; libfilter-perl-1.60/t/tee.t-72- ############################################## libfilter-perl-1.60/t/cpp.t-74- libfilter-perl-1.60/t/cpp.t:75:$a = `$Perl $Inc $cpp_script 2>&1` ; libfilter-perl-1.60/t/cpp.t-76- ############################################## libfilter-perl-1.60/t/exec.t-78- libfilter-perl-1.60/t/exec.t:79:$a = `$Perl $Inc $filename 2>&1` ; libfilter-perl-1.60/t/exec.t-80- ############################################## libfilter-perl-1.60/t/exec.t-95-# echo is fairly common on all shells and archs I think. libfilter-perl-1.60/t/exec.t:96:$a = `echo __DATA__ | $Perl $Inc -MFilter::exec=cat - 2>&1`; libfilter-perl-1.60/t/exec.t-97-ok(3, ($? >> 8) == 0) or diag($?); ############################################## libfilter-perl-1.60/t/sh.t-79- libfilter-perl-1.60/t/sh.t:80:my $a = `$Perl $Inc $filename 2>&1` ; libfilter-perl-1.60/t/sh.t-81- ############################################## libfilter-perl-1.60/t/order.t-71- libfilter-perl-1.60/t/order.t:72:my $a = `$Perl $Inc $file 2>&1` ; libfilter-perl-1.60/t/order.t-73- ############################################## libfilter-perl-1.60/t/call.t-60- libfilter-perl-1.60/t/call.t:61:my $a = `$Perl "-I." $Inc -e "use ${module} ;" $redir` ; libfilter-perl-1.60/t/call.t-62-ok(1, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'MacOS' || $^O eq 'NetWare' || $^O eq 'mpeix') && $? != 0))) ; ############################################## libfilter-perl-1.60/t/call.t-77- libfilter-perl-1.60/t/call.t:78:$a = `$Perl "-I." $Inc -e "use ${module} ;" $redir` ; libfilter-perl-1.60/t/call.t-79-#warn "# $a\n"; ############################################## libfilter-perl-1.60/t/call.t-142- libfilter-perl-1.60/t/call.t:143:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-144-ok(5, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-191- libfilter-perl-1.60/t/call.t:192:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-193-ok(7, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-306- libfilter-perl-1.60/t/call.t:307:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-308-ok(9, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-368- libfilter-perl-1.60/t/call.t:369:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-370-ok(11, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-427- libfilter-perl-1.60/t/call.t:428:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-429-ok(13, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-487- libfilter-perl-1.60/t/call.t:488:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-489-ok(15, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-535- libfilter-perl-1.60/t/call.t:536:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-537-ok(17, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-583- libfilter-perl-1.60/t/call.t:584:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-585-ok(19, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-634- libfilter-perl-1.60/t/call.t:635:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-636-ok(21, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-684- libfilter-perl-1.60/t/call.t:685:$a = `$Perl "-I." $Inc $filenamebin $redir` ; libfilter-perl-1.60/t/call.t-686-ok(23, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-738- libfilter-perl-1.60/t/call.t:739:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-740-ok(25, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-794- libfilter-perl-1.60/t/call.t:795:$a = `$Perl "-I." $Inc $filename $redir` ; libfilter-perl-1.60/t/call.t-796-ok(27, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-827-my $str = $^O eq 'MacOS' ? "'ok'" : "q{ok}"; libfilter-perl-1.60/t/call.t:828:my $a = `$Perl "-I." $Inc -e "no ${module6}; print $str"`; libfilter-perl-1.60/t/call.t-829-ok(29, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-832- libfilter-perl-1.60/t/call.t:833:$a = `$Perl "-I." $Inc $filename2`; libfilter-perl-1.60/t/call.t-834-ok(31, ($? >>8) == 0) or warn $a; ############################################## libfilter-perl-1.60/t/call.t-876- libfilter-perl-1.60/t/call.t:877:$a = `$Perl "-I." $Inc $filenamebin $redir` ; libfilter-perl-1.60/t/call.t-878-ok(33, ($? >>8) != 0) or warn $a; ############################################## libfilter-perl-1.60/t/rt_54452-rebless.t-61- libfilter-perl-1.60/t/rt_54452-rebless.t:62:my $a = `$Perl $Inc $file 2>&1` ; libfilter-perl-1.60/t/rt_54452-rebless.t-63-print "1..2\n" ;