=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libpoe-perl-1.3680/lib/POE.pm-58- # warn $code; libpoe-perl-1.3680/lib/POE.pm:59: eval($code); libpoe-perl-1.3680/lib/POE.pm-60- if ($@) { ############################################## libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-555- if (ref($program) eq 'ARRAY') { libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:556: exec(@$program, @$prog_args) libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-557- or __PACKAGE__->_warn_and_exit_child( libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:558: "can't exec (@$program) in child pid $$: $!", int( $! ) ); libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-559- } ############################################## libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-561- # exec(SCALAR) libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:562: exec(join(" ", $program, @$prog_args)) libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-563- or __PACKAGE__->_warn_and_exit_child( libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:564: "can't exec ($program) in child pid $$: $!", int( $! ) ); libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-565- } ############################################## libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-1326- eval { CORE::kill KILL => $$; }; libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:1327: eval { exec("$^X -e 0"); }; libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-1328- } else { ############################################## libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-1901-If Program holds a scalar, its value will be executed as libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:1902:exec($program). Shell metacharacters are significant, per libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-1903-exec(SCALAR) semantics. ############################################## libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-1905-If Program holds an array reference, it will executed as libpoe-perl-1.3680/lib/POE/Wheel/Run.pm:1906:exec(@$program). As per exec(ARRAY), shell metacharacters will not be libpoe-perl-1.3680/lib/POE/Wheel/Run.pm-1907-significant. ############################################## libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-723- $tc_left = "LE"; libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm:724: eval { $termcap->Trequire($tc_left) }; libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-725- if ($@) { libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-726- $tc_left = "le"; libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm:727: eval { $termcap->Trequire($tc_left) }; libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-728- if ($@) { ############################################## libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-731- eval { libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm:732: my @tc = `infocmp -C $term`; libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-733- chomp(@tc); ############################################## libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-736- $termcap = Term::Cap->Tgetent( { TERM => $term, OSPEED => $ospeed } ); libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm:737: $termcap->Trequire($tc_left); libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-738- }; ############################################## libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-2502- my $pos = $self->[SELF_CURSOR_INPUT]; libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm:2503: my $where = substr($self->[SELF_INPUT], $pos); libpoe-perl-1.3680/lib/POE/Wheel/ReadLine.pm-2504- my ($adrift) = ($where =~ m/([^\(\)\{\}\[\]]*)/); ############################################## libpoe-perl-1.3680/t/90_regression/ferrari-server-unix.t-30-unless($ARGV[0] && $ARGV[0] eq "test") { libpoe-perl-1.3680/t/90_regression/ferrari-server-unix.t:31: my $out = `$^X "$0" test 2>&1 >/dev/null`; libpoe-perl-1.3680/t/90_regression/ferrari-server-unix.t-32- chomp($out); ############################################## libpoe-perl-1.3680/mylib/coverage.perl-57-unless ($opt_noclean) { libpoe-perl-1.3680/mylib/coverage.perl:58: system( $make, "distclean" ); libpoe-perl-1.3680/mylib/coverage.perl:59: system( $^X, "Makefile.PL", "--default" ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl:60: system( $make ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl-61- if (-e $output_dir) { libpoe-perl-1.3680/mylib/coverage.perl:62: system( $^X, $cover, "-delete", $output_dir ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl-63- } ############################################## libpoe-perl-1.3680/mylib/coverage.perl-76- warn "*** proving: $prove @ARGV"; libpoe-perl-1.3680/mylib/coverage.perl:77: system( $prove, @ARGV ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl-78- } ############################################## libpoe-perl-1.3680/mylib/coverage.perl-83- warn "*** running: $^X $harness_switches $test"; libpoe-perl-1.3680/mylib/coverage.perl:84: system( $^X, $harness_switches, $test ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl-85- } ############################################## libpoe-perl-1.3680/mylib/coverage.perl-87- else { libpoe-perl-1.3680/mylib/coverage.perl:88: system( $make, "test" ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl-89- } ############################################## libpoe-perl-1.3680/mylib/coverage.perl-92-# coverage report libpoe-perl-1.3680/mylib/coverage.perl:93:system( $^X, $cover, $output_dir ) and exit($? >> 8); libpoe-perl-1.3680/mylib/coverage.perl-94- ############################################## libpoe-perl-1.3680/mylib/svn-log.perl-91- libpoe-perl-1.3680/mylib/svn-log.perl:92:my $doc = $parser->parse_string(scalar `svn --xml list $svn_repo/tags`); libpoe-perl-1.3680/mylib/svn-log.perl-93-