=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libfcgi-engine-perl-0.22/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libfcgi-engine-perl-0.22/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libfcgi-engine-perl-0.22/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libfcgi-engine-perl-0.22/inc/Module/Install/Makefile.pm-45-sub makemaker { libfcgi-engine-perl-0.22/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libfcgi-engine-perl-0.22/inc/Module/Install/Makefile.pm-47-} ############################################## libfcgi-engine-perl-0.22/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libfcgi-engine-perl-0.22/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libfcgi-engine-perl-0.22/inc/Module/Install.pm-378-sub _read { ############################################## libfcgi-engine-perl-0.22/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libfcgi-engine-perl-0.22/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libfcgi-engine-perl-0.22/inc/Module/Install.pm-416-sub _write { ############################################## libfcgi-engine-perl-0.22/lib/FCGI/Engine/Types.pm-14- => as 'Str' libfcgi-engine-perl-0.22/lib/FCGI/Engine/Types.pm:15: => where { /\:(\d+)/ && $1 >= 1 && $1 <= 65535 }; libfcgi-engine-perl-0.22/lib/FCGI/Engine/Types.pm-16- ############################################## libfcgi-engine-perl-0.22/t/lib/FCGIUtils.pm-55- libfcgi-engine-perl-0.22/t/lib/FCGIUtils.pm:56: my $ver = (`$lighttpd_bin -v` =~ m!lighttpd[-/]1.(\d+\.\d+)!)[0]; libfcgi-engine-perl-0.22/t/lib/FCGIUtils.pm-57- if ($ver < 4.17) { ############################################## libfcgi-engine-perl-0.22/t/lib/FCGIUtils.pm-67- $callback->($lighty_port, $fcgi_port, ($ver && $ver < 4.23)); libfcgi-engine-perl-0.22/t/lib/FCGIUtils.pm:68: warn `cat $tmpdir/error.log` if $ENV{DEBUG}; libfcgi-engine-perl-0.22/t/lib/FCGIUtils.pm-69- }, ############################################## libfcgi-engine-perl-0.22/t/lib/utils.pm-30- my $conf = shift; libfcgi-engine-perl-0.22/t/lib/utils.pm:31: system(find_lighttpd(), '-f', $conf); libfcgi-engine-perl-0.22/t/lib/utils.pm-32-}