=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== alice-0.19/lib/App/Alice/History.pm-32- my ($stmt, @bind) = $self->sql->insert("messages", \%fields); alice-0.19/lib/App/Alice/History.pm:33: $self->dbi->exec($stmt, @bind, sub {}); alice-0.19/lib/App/Alice/History.pm-34-} ############################################## alice-0.19/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion alice-0.19/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; alice-0.19/inc/Module/Install.pm-378-sub _read { ############################################## alice-0.19/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion alice-0.19/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; alice-0.19/inc/Module/Install.pm-416-sub _write { ############################################## alice-0.19/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; alice-0.19/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; alice-0.19/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## alice-0.19/inc/Module/Install/Share.pm-51- my $postamble = ''; alice-0.19/inc/Module/Install/Share.pm:52: my $perm_dir = eval($ExtUtils::MakeMaker::VERSION) >= 6.52 ? '$(PERM_DIR)' : 755; alice-0.19/inc/Module/Install/Share.pm-53- File::Find::find({ ############################################## alice-0.19/inc/Module/Install/Makefile.pm-45-sub makemaker { alice-0.19/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 alice-0.19/inc/Module/Install/Makefile.pm-47-}