===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              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-