=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libplack-perl-1.0047/benchmarks/ab.pl-69- system "ab -n 20 $uri > /dev/null"; # warmup libplack-perl-1.0047/benchmarks/ab.pl:70: print `$ab $uri | grep 'Requests per '`; libplack-perl-1.0047/benchmarks/ab.pl-71- }, ############################################## libplack-perl-1.0047/lib/Plack/App/CGIBin.pm-47- my $app = $self->{_compiled}->{$file} ||= Plack::App::WrapCGI->new( libplack-perl-1.0047/lib/Plack/App/CGIBin.pm:48: script => $file, execute => $self->would_exec($file), libplack-perl-1.0047/lib/Plack/App/CGIBin.pm-49- )->to_app; ############################################## libplack-perl-1.0047/lib/Plack/App/WrapCGI.pm-55- chdir(File::Basename::dirname($script)); libplack-perl-1.0047/lib/Plack/App/WrapCGI.pm:56: exec($script) or Carp::croak("cannot exec: $!"); libplack-perl-1.0047/lib/Plack/App/WrapCGI.pm-57- ############################################## libplack-perl-1.0047/lib/Plack/Middleware/StackTrace.pm-27- if (ref $_[0]) { libplack-perl-1.0047/lib/Plack/Middleware/StackTrace.pm:28: $ref_traces{refaddr($_[0])} ||= $trace; libplack-perl-1.0047/lib/Plack/Middleware/StackTrace.pm-29- } ############################################## libplack-perl-1.0047/lib/Plack/Middleware/StackTrace.pm-47- if (ref $caught) { libplack-perl-1.0047/lib/Plack/Middleware/StackTrace.pm:48: $caught_trace = $ref_traces{refaddr($caught)}; libplack-perl-1.0047/lib/Plack/Middleware/StackTrace.pm-49- } ############################################## libplack-perl-1.0047/t/Plack-Handler/apache1.t-33- $log_filename = "$tmpdir/error_log"; libplack-perl-1.0047/t/Plack-Handler/apache1.t:34: system ("touch $log_filename"); libplack-perl-1.0047/t/Plack-Handler/apache1.t-35- link($log_filename, 'err'); ############################################## libplack-perl-1.0047/t/Plack-Handler/FCGIUtils.pm-28- libplack-perl-1.0047/t/Plack-Handler/FCGIUtils.pm:29: my $ver = (`$lighttpd_bin -v` =~ m!lighttpd[-/]1.(\d+\.\d+)!)[0]; libplack-perl-1.0047/t/Plack-Handler/FCGIUtils.pm-30- if ($ver < 4.17) { ############################################## libplack-perl-1.0047/t/Plack-Handler/FCGIUtils.pm-40- $callback->($lighty_port, $fcgi_port, ($ver && $ver < 4.23)); libplack-perl-1.0047/t/Plack-Handler/FCGIUtils.pm:41: warn `cat $tmpdir/error.log` if $ENV{DEBUG}; libplack-perl-1.0047/t/Plack-Handler/FCGIUtils.pm-42- }, ############################################## libplack-perl-1.0047/t/Plack-Handler/output_encoding.t-31- libplack-perl-1.0047/t/Plack-Handler/output_encoding.t:32: system( "$^X $mangler Plack::Handler::$handler > $mangle_file" ); libplack-perl-1.0047/t/Plack-Handler/output_encoding.t-33- like read_file( $mangle_file ), qr/test\ntest/, '\n is not converted'; ############################################## libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t-19- my $res = $cb->(GET "http://localhost/foo.bar-baz?a=b"); libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t:20: is_deeply eval($res->content), [ URI->new("http://localhost/foo.bar-baz?a=b"), { a => 'b' } ]; libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t-21- libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t-22- $res = $cb->(GET "http://localhost/foo%2fbar#ab"); libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t:23: is_deeply eval($res->content), [ URI->new("http://localhost/foo/bar"), {} ], libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t-24- "%2f vs / can't be distinguished - that's alright"; ############################################## libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t-26- $res = $cb->(GET "http://localhost/%23foo?a=b"); libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t:27: is_deeply eval($res->content), [ URI->new("http://localhost/%23foo?a=b"), { a => 'b' } ]; libplack-perl-1.0047/t/Plack-Request/path_info_escaped.t-28-}; ############################################## libplack-perl-1.0047/t/Plack-Runner/path.t-25- close STDERR; libplack-perl-1.0047/t/Plack-Runner/path.t:26: exec($^X, '-Ilib', 'script/plackup', '-p', $port, '--path', '/app/', '-a', $psgi_file) or die $@; libplack-perl-1.0047/t/Plack-Runner/path.t-27-} else { ############################################## libplack-perl-1.0047/xt/author-downstream.t-14- my $tmp = tempdir(CLEANUP => 1); libplack-perl-1.0047/xt/author-downstream.t:15: is(system("cpanm --notest -l $tmp ."), 0); libplack-perl-1.0047/xt/author-downstream.t:16: is(system("cpanm -l $tmp --test-only $module"), 0, $module); libplack-perl-1.0047/xt/author-downstream.t-17-}