=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbi-perl-1.643/dbilogstrip.PL-69-# syntax check resulting file, but only for developers libdbi-perl-1.643/dbilogstrip.PL:70:exit 1 if -d ".svn" and system($^X, '-wc', '-Mblib', $file) != 0; libdbi-perl-1.643/dbilogstrip.PL-71- ############################################## libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl-58-( libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:59: {clause=>qq{WHERE mycol = ?}, nonnull=>[$marge], null=>[undef]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:60: {clause=>qq{WHERE NVL(mycol, '-') = NVL(?, '-')}, nonnull=>[$marge], null=>[undef]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:61: {clause=>qq{WHERE ISNULL(mycol, '-') = ISNULL(?, '-')}, nonnull=>[$marge], null=>[undef]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:62: {clause=>qq{WHERE DECODE(mycol, ?, 1, 0) = 1}, nonnull=>[$marge], null=>[undef]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:63: {clause=>qq{WHERE mycol = ? OR (mycol IS NULL AND ? IS NULL)}, nonnull=>[$marge,$marge], null=>[undef,undef]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:64: {clause=>qq{WHERE mycol = ? OR (mycol IS NULL AND SP_ISNULL(?) = 1)}, nonnull=>[$marge,$marge], null=>[undef,undef]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl:65: {clause=>qq{WHERE mycol = ? OR (mycol IS NULL AND ? = 1)}, nonnull=>[$marge,0], null=>[undef,1]}, libdbi-perl-1.643/ex/perl_dbi_nulls_test.pl-66-); ############################################## libdbi-perl-1.643/dbiprof.PL-285-# syntax check resulting file, but only for developers libdbi-perl-1.643/dbiprof.PL:286:exit 1 if -d ".svn"|| -d ".git" and system($^X, '-wc', '-Mblib', $file) != 0; libdbi-perl-1.643/dbiprof.PL-287- ############################################## libdbi-perl-1.643/t/73cachedkids.t-72- reftype $_[0], libdbi-perl-1.643/t/73cachedkids.t:73: refaddr($_[0]), libdbi-perl-1.643/t/73cachedkids.t-74- ; ############################################## libdbi-perl-1.643/t/52dbm_complex.t-270- sprintf( q{FROM APPL_%s, PREC_%s, NODE_%s }, ($suffix) x 3 ), libdbi-perl-1.643/t/52dbm_complex.t:271: sprintf( q{WHERE appl_type LIKE '%%DB' AND APPL_%s.id=PREC_%s.appl_id AND}, ($suffix) x 2 ), libdbi-perl-1.643/t/52dbm_complex.t-272- sprintf( q{PREC_%s.node_id=NODE_%s.id}, ($suffix) x 2 ), ############################################## libdbi-perl-1.643/t/52dbm_complex.t-284- sprintf( q{FROM APPL_%s, PREC_%s, NODE_%s, LANDSCAPE_%s, NM_LANDSCAPE_%s}, ($suffix) x 5 ), libdbi-perl-1.643/t/52dbm_complex.t:285: sprintf( q{WHERE appl_type LIKE '%%DB' AND APPL_%s.id=PREC_%s.appl_id AND}, ($suffix) x 2 ), libdbi-perl-1.643/t/52dbm_complex.t-286- sprintf( q{PREC_%s.node_id=NODE_%s.id AND NM_LANDSCAPE_%s.obj_id=APPL_%s.id AND}, ($suffix) x 4 ), ############################################## libdbi-perl-1.643/t/52dbm_complex.t-295- sprintf( q{FROM APPL_%s, PREC_%s, NODE_%s, CONTACT_%s, APPL_CONTACT_%s}, ($suffix) x 5 ), libdbi-perl-1.643/t/52dbm_complex.t:296: sprintf( q{WHERE appl_type='CUPS' AND APPL_%s.id=PREC_%s.appl_id AND}, ($suffix) x 2 ), libdbi-perl-1.643/t/52dbm_complex.t-297- sprintf( q{PREC_%s.node_id=NODE_%s.id AND APPL_CONTACT_%s.appl_id=APPL_%s.id AND}, ($suffix) x 4 ), ############################################## libdbi-perl-1.643/t/52dbm_complex.t-307- sprintf( q{FROM APPL_%s, PREC_%s, NODE_%s, CONTACT_%s, APPL_CONTACT_%s}, ($suffix) x 5 ), libdbi-perl-1.643/t/52dbm_complex.t:308: sprintf( q{WHERE appl_type='CUPS' AND APPL_%s.id=PREC_%s.appl_id AND}, ($suffix) x 2 ), libdbi-perl-1.643/t/52dbm_complex.t-309- sprintf( q{PREC_%s.node_id=NODE_%s.id AND APPL_CONTACT_%s.appl_id=APPL_%s.id}, ($suffix) x 4 ), ############################################## libdbi-perl-1.643/t/52dbm_complex.t-322- sprintf( q{FROM APPL_%s, PREC_%s, NODE_%s}, ($suffix) x 3 ), libdbi-perl-1.643/t/52dbm_complex.t:323: sprintf( q{WHERE appl_type LIKE '%%DB' AND APPL_%s.id=PREC_%s.appl_id AND}, ($suffix) x 2 ), libdbi-perl-1.643/t/52dbm_complex.t-324- sprintf( q{PREC_%s.node_id=NODE_%s.id}, ($suffix) x 2 ), ############################################## libdbi-perl-1.643/t/80proxy.t-461- warn "More info can be found in $dbitracelog\n"; libdbi-perl-1.643/t/80proxy.t:462: #system("cat $dbitracelog"); libdbi-perl-1.643/t/80proxy.t-463-} ############################################## libdbi-perl-1.643/test.pl-139- #$main::leak .= " " x 1000; libdbi-perl-1.643/test.pl:140: system("echo $count; $ps$$") if (($count++ % 2000) == 0); libdbi-perl-1.643/test.pl-141- ############################################## libdbi-perl-1.643/dbiproxy.PL-206-# syntax check resulting file, but only for developers libdbi-perl-1.643/dbiproxy.PL:207:exit 1 if -d ".svn" || -d ".git" and system($^X, '-wc', '-Mblib', $file) != 0; libdbi-perl-1.643/dbiproxy.PL-208- ############################################## libdbi-perl-1.643/lib/DBI/Profile.pm-824- my $eval = "qr/".quotemeta($separator)."/"; libdbi-perl-1.643/lib/DBI/Profile.pm:825: my $separator_re = eval($eval) || quotemeta($separator); libdbi-perl-1.643/lib/DBI/Profile.pm-826- #warn "[$eval] = [$separator_re]"; ############################################## libdbi-perl-1.643/lib/DBI/DBD/SqlEngine.pm-596- and defined $dbh->{$attrib} libdbi-perl-1.643/lib/DBI/DBD/SqlEngine.pm:597: and refaddr( $dbh->{$attrib} ) libdbi-perl-1.643/lib/DBI/DBD/SqlEngine.pm-598- and return clone( $dbh->{$attrib} ); ############################################## libdbi-perl-1.643/lib/DBI/SQL/Nano.pm-613- my ( $self, $table, $rowary ) = @_; libdbi-perl-1.643/lib/DBI/SQL/Nano.pm:614: my $where = $self->{"where_clause"} || return 1; libdbi-perl-1.643/lib/DBI/SQL/Nano.pm-615- my $col_nums = $table->col_nums(); ############################################## libdbi-perl-1.643/.pc/t__80proxy.t___syslogd.patch/t/80proxy.t-457- warn "More info can be found in $dbitracelog\n"; libdbi-perl-1.643/.pc/t__80proxy.t___syslogd.patch/t/80proxy.t:458: #system("cat $dbitracelog"); libdbi-perl-1.643/.pc/t__80proxy.t___syslogd.patch/t/80proxy.t-459-} ############################################## libdbi-perl-1.643/.pc/spelling.patch/DBI.pm-2285- libdbi-perl-1.643/.pc/spelling.patch/DBI.pm:2286: $row_hashref = $dbh->selectrow_hashref("SELECT foo, bar FROM table WHERE baz=?", undef, $baz); libdbi-perl-1.643/.pc/spelling.patch/DBI.pm-2287- ############################################## libdbi-perl-1.643/.pc/spelling.patch/DBI.pm-2314- libdbi-perl-1.643/.pc/spelling.patch/DBI.pm:2315: $rows_affected = $dbh->do("DELETE FROM table WHERE foo = ?", undef, $foo); libdbi-perl-1.643/.pc/spelling.patch/DBI.pm-2316- ############################################## libdbi-perl-1.643/DBI.pm-2285- libdbi-perl-1.643/DBI.pm:2286: $row_hashref = $dbh->selectrow_hashref("SELECT foo, bar FROM table WHERE baz=?", undef, $baz); libdbi-perl-1.643/DBI.pm-2287- ############################################## libdbi-perl-1.643/DBI.pm-2314- libdbi-perl-1.643/DBI.pm:2315: $rows_affected = $dbh->do("DELETE FROM table WHERE foo = ?", undef, $foo); libdbi-perl-1.643/DBI.pm-2316-