=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbix-searchbuilder-perl-1.68/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libdbix-searchbuilder-perl-1.68/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libdbix-searchbuilder-perl-1.68/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libdbix-searchbuilder-perl-1.68/inc/Module/Install/Makefile.pm-45-sub makemaker { libdbix-searchbuilder-perl-1.68/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libdbix-searchbuilder-perl-1.68/inc/Module/Install/Makefile.pm-47-} ############################################## libdbix-searchbuilder-perl-1.68/t/01records.t-122- $newrec = TestApp::Address->new($handle); libdbix-searchbuilder-perl-1.68/t/01records.t:123: ($val, $msg) = $newrec->_LoadFromSQL('SELECT id FROM Address WHERE id = ?', $newid); libdbix-searchbuilder-perl-1.68/t/01records.t-124- is($val, 1, 'found object'); ############################################## libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle/Oracle.pm-277- # Make current query a sub select libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle/Oracle.pm:278: $$statementref = "SELECT * FROM ( SELECT limitquery.*,rownum limitrownum FROM ( $$statementref ) limitquery WHERE rownum <= " . ($first + $per_page - 1) . " ) WHERE limitrownum >= " . $first; libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle/Oracle.pm-279- } ############################################## libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle.pm-463- foreach my $key (sort keys %{$args{'PrimaryKeys'}}) { libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle.pm:464: $where .= $key . "=?" . " AND "; libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle.pm-465- push (@bind, $args{'PrimaryKeys'}{$key}); libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle.pm-466- } libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle.pm:467: $where =~ s/AND\s$//; libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Handle.pm-468- ############################################## libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Record.pm-1346- foreach my $key (sort keys %pkeys) { libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Record.pm:1347: $where .= $key . "=?" . " AND "; libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Record.pm-1348- push (@bind, $pkeys{$key}); ############################################## libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Record.pm-1350- libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Record.pm:1351: $where =~ s/AND\s$//; libdbix-searchbuilder-perl-1.68/lib/DBIx/SearchBuilder/Record.pm-1352- my $QueryString = "DELETE FROM ". $self->Table . ' ' . $where;