===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Source/SQLite/Tie.pm-54- my $res = $dbh->query(
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Source/SQLite/Tie.pm:55: "SELECT * from $table where $self->{key} = ?", $key
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Source/SQLite/Tie.pm-56- ) or do {
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Utils.pm-179- ' -MConfig -eprint+Config::config_vars+version';
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Utils.pm:180: ($perl_version) = (`$cmd` =~ /version='(.*)'/);
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Utils.pm-181- }
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Fetch.pm-116- ### check if we already downloaded the thing ###
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Fetch.pm:117: if( (my $where = $modobj->status->fetch()) and not $force and not $ttl ) {
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Fetch.pm-118-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Fetch.pm-337-
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Fetch.pm:338: $where = $self->_host_to_uri( %args );
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Fetch.pm-339- }
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Report.pm-189- my $tempdir = File::Temp::tempdir();
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Report.pm:190: my $where = $ff->fetch( to => $tempdir );
libcpanplus-perl-0.9908/lib/CPANPLUS/Internals/Report.pm-191-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Classic.pm-349- #local $ENV{PERL5OPT} = CPANPLUS::inc->original_perl5opt;
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Classic.pm:350: if( system($shell) and $! ) {
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Classic.pm-351- print "Error executing your subshell '$shell': $!\n";
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Classic.pm-425-
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Classic.pm:426: my $where = $cb->autobundle();
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Classic.pm-427-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-783- for my $mod (@$mods) {
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm:784: my $where = $mod->fetch( %$opts );
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-785-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-836-
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm:837: if( system($shell) and $! ) {
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-838- $self->__print(
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1290-
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm:1291: my $rv = $cb->configure_object->save( $where => $dir );
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1292-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1311- my $file = $conf->_config_pm_to_file( $where );
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm:1312: system($editor,$file);
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1313-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1525-
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm:1526: my $where = $cb->autobundle( %$opts );
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1527-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1933-sub _reload_shell {
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm:1934: { exec ($^X, '-MCPANPLUS', '-e', 'shell') }; print STDERR "couldn't exec foo: $!";
libcpanplus-perl-0.9908/lib/CPANPLUS/Shell/Default.pm-1935-}
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Backend.pm-1118- my $version = $self->VERSION;
libcpanplus-perl-0.9908/lib/CPANPLUS/Backend.pm:1119: my $perl_v = join '', `$^X -V`;
libcpanplus-perl-0.9908/lib/CPANPLUS/Backend.pm-1120-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-253-
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm:254: $where = $term->get_reply(
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-255- prompt => loc('Please pick one'),
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-259- } else {
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm:260: $where = $base;
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-261- }
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-273- );
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm:274: $where = '' unless $yn;
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-275- }
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-289- NEW_HOME: {
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm:290: $where = $term->get_reply(
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-291- prompt => loc('Where shall I create it?'),
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-312- ### tidy up the path and store it
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm:313: $where = File::Spec->rel2abs($where);
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-314- $conf->set_conf( base => $where );
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-1640-
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm:1641: return !system("$editor $file");
libcpanplus-perl-0.9908/lib/CPANPLUS/Configure/Setup.pm-1642-}
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-560-
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm:561:=head2 $where = $self->fetch
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-562-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-579-
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm:580: my $where = $cb->_fetch( @_, %args ) or return;
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-581-
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-1117- my $where;
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm:1118: unless( $where = $self->status->fetch ) {
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-1119- error(loc("Don't know where '%1' was fetched to", $self->package));
##############################################
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-1244-
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm:1245:=head2 $where = $self->installed_file()
libcpanplus-perl-0.9908/lib/CPANPLUS/Module.pm-1246-
##############################################
libcpanplus-perl-0.9908/t/08_CPANPLUS-Backend.t-345-{
libcpanplus-perl-0.9908/t/08_CPANPLUS-Backend.t:346: my $where = $cb->autobundle;
libcpanplus-perl-0.9908/t/08_CPANPLUS-Backend.t-347- ok( $where, "Autobundle written" );
##############################################
libcpanplus-perl-0.9908/t/04_CPANPLUS-Module.t-118-
libcpanplus-perl-0.9908/t/04_CPANPLUS-Module.t:119: my $where = $Mod->fetch( force => 1 );
libcpanplus-perl-0.9908/t/04_CPANPLUS-Module.t-120- ok( $where, "Module fetched" );
##############################################
libcpanplus-perl-0.9908/t/04_CPANPLUS-Module.t-295-
libcpanplus-perl-0.9908/t/04_CPANPLUS-Module.t:296: my $where = $bundle->fetch;
libcpanplus-perl-0.9908/t/04_CPANPLUS-Module.t-297- ok( $where, " Autobundle fetched" );
##############################################
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t-37-### refetch, even if it's there already ###
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t:38:{ my $where = $cb->_fetch( module => $mod, force => 1 );
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t-39-
##############################################
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t-55- ### the fallback host will get it ###
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t:56: my $where = $cb->_fetch( module => $mod, force => 1, verbose => 0 );
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t-57- ok($where, "File downloaded to '$where'" );
##############################################
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t-95-
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t:96: my $where = $fake->fetch;
libcpanplus-perl-0.9908/t/05_CPANPLUS-Internals-Fetch.t-97- ok( $where, " $target fetched ok" );
##############################################
libcpanplus-perl-0.9908/t/21_CPANPLUS-Dist-No-Build.t-34-### fetch the file first
libcpanplus-perl-0.9908/t/21_CPANPLUS-Dist-No-Build.t:35:{ my $where = $Mod->fetch;
libcpanplus-perl-0.9908/t/21_CPANPLUS-Dist-No-Build.t-36- ok( -e $where, " Tarball '$where' exists" );
##############################################
libcpanplus-perl-0.9908/t/21_CPANPLUS-Dist-No-Build.t-39-### extract it, silence warnings/messages
libcpanplus-perl-0.9908/t/21_CPANPLUS-Dist-No-Build.t:40:{ my $where = $Mod->extract;
libcpanplus-perl-0.9908/t/21_CPANPLUS-Dist-No-Build.t-41- ok( -e $where, " Tarball extracted to '$where'" );
##############################################
libcpanplus-perl-0.9908/t/07_CPANPLUS-Internals-Extract.t-23-
libcpanplus-perl-0.9908/t/07_CPANPLUS-Internals-Extract.t:24:my $where = $mod->fetch;
libcpanplus-perl-0.9908/t/07_CPANPLUS-Internals-Extract.t-25-ok( $where, "Module fetched" );
##############################################
libcpanplus-perl-0.9908/inc/bundle/File/Spec/Unix.pm-172- elsif ($] < 5.007) { # No ${^TAINT} before 5.8
libcpanplus-perl-0.9908/inc/bundle/File/Spec/Unix.pm:173: @dirlist = grep { !defined($_) || eval { eval('1'.substr $_,0,0) } }
libcpanplus-perl-0.9908/inc/bundle/File/Spec/Unix.pm-174- @dirlist;
##############################################
libcpanplus-perl-0.9908/inc/bundle/File/Spec/Unix.pm-189- $taint ? ! Scalar::Util::tainted($_) :
libcpanplus-perl-0.9908/inc/bundle/File/Spec/Unix.pm:190: $] < 5.007 ? eval { eval('1'.substr $_,0,0) } : 1
libcpanplus-perl-0.9908/inc/bundle/File/Spec/Unix.pm-191- } $self->rel2abs($tmpdir), $tmpdir;
##############################################
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-79- ### fetch the uri to cwd() ###
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm:80: my $where = $ff->fetch() or die $ff->error;
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-81-
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-82- ### fetch the uri to /tmp ###
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm:83: my $where = $ff->fetch( to => '/tmp' );
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-84-
##############################################
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-425-
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm:426:=head2 $where = $ff->fetch( [to => /my/output/dir/ | \$scalar] )
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-427-
##############################################
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-433- ### file fetch to /tmp, full path to the file in $where
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm:434: $where = $ff->fetch( to => '/tmp' );
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-435-
##############################################
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-437- ### file is downloaded to a temp directory and cleaned up at exit time
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm:438: $where = $ff->fetch( to => \$scalar );
libcpanplus-perl-0.9908/inc/bundle/File/Fetch.pm-439-
##############################################
libcpanplus-perl-0.9908/inc/bundle/Module/Load/Conditional.pm-535- grep { m!^BONG\=! }
libcpanplus-perl-0.9908/inc/bundle/Module/Load/Conditional.pm:536: `$cmd`;
libcpanplus-perl-0.9908/inc/bundle/Module/Load/Conditional.pm-537-}
##############################################
libcpanplus-perl-0.9908/inc/bundle/Module/Metadata.pm-705- # Try to get the $VERSION
libcpanplus-perl-0.9908/inc/bundle/Module/Metadata.pm:706: my $vsub = __clean_eval($eval);
libcpanplus-perl-0.9908/inc/bundle/Module/Metadata.pm-707- # some modules say $VERSION <equal sign> $Foo::Bar::VERSION, but Foo::Bar isn't
##############################################
libcpanplus-perl-0.9908/inc/bundle/Module/Metadata.pm-710- local @INC = ('lib',@INC);
libcpanplus-perl-0.9908/inc/bundle/Module/Metadata.pm:711: $vsub = __clean_eval($eval);
libcpanplus-perl-0.9908/inc/bundle/Module/Metadata.pm-712- }
##############################################
libcpanplus-perl-0.9908/inc/bundle/Module/Loaded.pm-54-
libcpanplus-perl-0.9908/inc/bundle/Module/Loaded.pm:55: my $where = is_loaded( $pm );
libcpanplus-perl-0.9908/inc/bundle/Module/Loaded.pm-56- if ( defined $where ) {
##############################################
libcpanplus-perl-0.9908/inc/bundle/Archive/Tar.pm-972- } elsif ( $entry->is_fifo ) {
libcpanplus-perl-0.9908/inc/bundle/Archive/Tar.pm:973: ON_UNIX && !system('mknod', $file, 'p') or
libcpanplus-perl-0.9908/inc/bundle/Archive/Tar.pm-974- $err = qq[Making fifo ']. $entry->name .qq[' failed];
##############################################
libcpanplus-perl-0.9908/inc/bundle/Archive/Extract.pm-654- ### if this is gnu tar we are running, we need to use --force-local
libcpanplus-perl-0.9908/inc/bundle/Archive/Extract.pm:655: push @ExtraTarFlags, '--force-local' if `$cmd --version` =~ /gnu tar/i;
libcpanplus-perl-0.9908/inc/bundle/Archive/Extract.pm-656- }
##############################################
libcpanplus-perl-0.9908/inc/bundle/version/vpp.pm-656-
libcpanplus-perl-0.9908/inc/bundle/version/vpp.pm:657: if ( ref($value) && eval('$value->isa("version")') ) {
libcpanplus-perl-0.9908/inc/bundle/version/vpp.pm-658- # Can copy the elements directly
##############################################
libcpanplus-perl-0.9908/inc/bundle/JSON/PP.pm-361- if ( @results and ref $results[0] ) {
libcpanplus-perl-0.9908/inc/bundle/JSON/PP.pm:362: if ( refaddr( $obj ) eq refaddr( $results[0] ) ) {
libcpanplus-perl-0.9908/inc/bundle/JSON/PP.pm-363- encode_error( sprintf(
##############################################
libcpanplus-perl-0.9908/inc/bundle/JSON/PP.pm-374- if ( defined $result and ref( $result ) ) {
libcpanplus-perl-0.9908/inc/bundle/JSON/PP.pm:375: if ( refaddr( $obj ) eq refaddr( $result ) ) {
libcpanplus-perl-0.9908/inc/bundle/JSON/PP.pm-376- encode_error( sprintf(
##############################################
libcpanplus-perl-0.9908/inc/bundle/IPC/Cmd.pm-1375- } else {
libcpanplus-perl-0.9908/inc/bundle/IPC/Cmd.pm:1376: $self->_debug( "# Using system(). Have buffer: $have_buffer" )
libcpanplus-perl-0.9908/inc/bundle/IPC/Cmd.pm-1377- if $DEBUG;
##############################################
libcpanplus-perl-0.9908/inc/bundle/IPC/Cmd.pm-1736- $self->ok( 1 );
libcpanplus-perl-0.9908/inc/bundle/IPC/Cmd.pm:1737: system( ref $cmd ? @$cmd : $cmd ) == 0 or do {
libcpanplus-perl-0.9908/inc/bundle/IPC/Cmd.pm-1738- $self->error( $self->_pp_child_error( $cmd, $? ) );
##############################################
libcpanplus-perl-0.9908/inc/bundle/CPAN/Meta/YAML.pm-693- my ($self, $array, $indent, $seen) = @_;
libcpanplus-perl-0.9908/inc/bundle/CPAN/Meta/YAML.pm:694: if ( $seen->{refaddr($array)}++ ) {
libcpanplus-perl-0.9908/inc/bundle/CPAN/Meta/YAML.pm-695- die \"CPAN::Meta::YAML does not support circular references";
##############################################
libcpanplus-perl-0.9908/inc/bundle/CPAN/Meta/YAML.pm-732- my ($self, $hash, $indent, $seen) = @_;
libcpanplus-perl-0.9908/inc/bundle/CPAN/Meta/YAML.pm:733: if ( $seen->{refaddr($hash)}++ ) {
libcpanplus-perl-0.9908/inc/bundle/CPAN/Meta/YAML.pm-734- die \"CPAN::Meta::YAML does not support circular references";
##############################################
libcpanplus-perl-0.9908/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size};
libcpanplus-perl-0.9908/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run};
libcpanplus-perl-0.9908/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove};
##############################################
libcpanplus-perl-0.9908/inc/Module/Install/Makefile.pm-45-sub makemaker {
libcpanplus-perl-0.9908/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0
libcpanplus-perl-0.9908/inc/Module/Install/Makefile.pm-47-}
##############################################
libcpanplus-perl-0.9908/bin/cpan2dist-129-
libcpanplus-perl-0.9908/bin/cpan2dist:130: system( $editor => $file );
libcpanplus-perl-0.9908/bin/cpan2dist-131-