=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libjifty-dbi-perl-0.78/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libjifty-dbi-perl-0.78/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libjifty-dbi-perl-0.78/inc/Module/Install.pm-378-sub _read { ############################################## libjifty-dbi-perl-0.78/inc/Module/Install.pm-416-# Done in evals to avoid confusing Perl::MinimumVersion libjifty-dbi-perl-0.78/inc/Module/Install.pm:417:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libjifty-dbi-perl-0.78/inc/Module/Install.pm-418-sub _write { ############################################## libjifty-dbi-perl-0.78/inc/Module/Install/Makefile.pm-45-sub makemaker { libjifty-dbi-perl-0.78/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libjifty-dbi-perl-0.78/inc/Module/Install/Makefile.pm-47-} ############################################## libjifty-dbi-perl-0.78/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libjifty-dbi-perl-0.78/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libjifty-dbi-perl-0.78/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libjifty-dbi-perl-0.78/t/06filter_duration.t-72- libjifty-dbi-perl-0.78/t/06filter_duration.t:73: my $sth = $handle->simple_query("SELECT my_data FROM users WHERE id = $id"); libjifty-dbi-perl-0.78/t/06filter_duration.t-74- my ($seconds) = $sth->fetchrow_array; ############################################## libjifty-dbi-perl-0.78/t/utils.pl-330- my ($exists) = $handle->dbh->selectrow_array( libjifty-dbi-perl-0.78/t/utils.pl:331: "select 1 from pg_tables where tablename = ?", undef, $table libjifty-dbi-perl-0.78/t/utils.pl-332- ); ############################################## libjifty-dbi-perl-0.78/t/01records.t-127- $newrec = TestApp::Address->new( handle => $handle ); libjifty-dbi-perl-0.78/t/01records.t:128: ($val, $msg) = $newrec->_load_from_sql('SELECT id FROM addresses WHERE id = ?', $newid); libjifty-dbi-perl-0.78/t/01records.t-129- is($val, 1, 'found object'); ############################################## libjifty-dbi-perl-0.78/t/06filter_boolean.t-61- libjifty-dbi-perl-0.78/t/06filter_boolean.t:62: my $sth = $handle->simple_query("SELECT my_data FROM users WHERE id = $id"); libjifty-dbi-perl-0.78/t/06filter_boolean.t-63- my ($got) = $sth->fetchrow_array; ############################################## libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle/mysql.pm-108- libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle/mysql.pm:109: my ($column_info) = ($create_table =~ /`$column`(.*?)(?:,|$)/i) libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle/mysql.pm-110- or die "Cannot find column '$column' in $create_table"; ############################################## libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-408- while ( my $key = shift @pairs ) { libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm:409: $where .= $key . "=?" . " AND "; libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-410- push( @bind, shift(@pairs) ); ############################################## libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-412- libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm:413: $where =~ s/AND $//; libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-414- my $query_string = "DELETE FROM " . $table . ' ' . $where; ############################################## libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-486- foreach my $key ( keys %{ $args{'primary_keys'} } ) { libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm:487: $where .= $key . "=?" . " AND "; libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-488- push( @bind, $args{'primary_keys'}{$key} ); libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-489- } libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm:490: $where =~ s/AND\s$//; libjifty-dbi-perl-0.78/lib/Jifty/DBI/Handle.pm-491-