===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libdbix-recordset-perl-0.26/Recordset/DBSeq.pm-78-
libdbix-recordset-perl-0.26/Recordset/DBSeq.pm:79: my $sth = $dbh -> prepare ("select cnt,maxcnt from $self->{'*table'} where name=?") or die "Cannot prepare select for $self->{'*table'} ($DBI::errstr)" ;
libdbix-recordset-perl-0.26/Recordset/DBSeq.pm-80-
##############################################
libdbix-recordset-perl-0.26/Recordset/DBSeq.pm-97- die "Max count reached for sequence $name" if (defined ($row->[1]) && $cnt+1 > $row->[1]) ;
libdbix-recordset-perl-0.26/Recordset/DBSeq.pm:98: $dbh -> do ("update $self->{'*table'} set cnt=cnt+1 where name='$name'") or die "Cannot update $self->{'*table'} ($DBI::errstr)" ;
libdbix-recordset-perl-0.26/Recordset/DBSeq.pm-99- }
##############################################
libdbix-recordset-perl-0.26/.pc/Compat.pm.patch/Compat.pm-32- {
libdbix-recordset-perl-0.26/.pc/Compat.pm.patch/Compat.pm:33: warn "select * from $table where 1=0 failed $DBI::errstr" ;
libdbix-recordset-perl-0.26/.pc/Compat.pm.patch/Compat.pm-34- return undef ;
##############################################
libdbix-recordset-perl-0.26/.pc/Compat.pm.patch/Compat.pm-48- {
libdbix-recordset-perl-0.26/.pc/Compat.pm.patch/Compat.pm:49: warn "select * from \"$table\" where 1=0 failed $DBI::errstr" ;
libdbix-recordset-perl-0.26/.pc/Compat.pm.patch/Compat.pm-50- return undef ;
##############################################
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-1331- $groupby = $group?'GROUP BY':'' ;
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm:1332: $where = $expr?'WHERE':'' ;
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-1333- $fields ||= '*';
##############################################
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-2086-
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm:2087: if ($Debug > 2) { print LOG "DB: SelectWhere <$key>=<" . (defined ($val)?$val:'<undef>') ."> type = $type\n" ; }
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-2088-
##############################################
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-2583- {
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm:2584: $where = {$primkey => $val} ;
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-2585- }
##############################################
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-3344- my ($self, $rs) = @_ ;
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm:3345: my $where = $self -> {'*PreFetch'} ;
libdbix-recordset-perl-0.26/.pc/Recordset.pm.patch/Recordset.pm-3346- my %keyhash ;
##############################################
libdbix-recordset-perl-0.26/.pc/test.pl.patch/test.pl-1480- #my $should = 'SELECT id, name, txt FROM dbixrs1, dbixrs3 WHERE (dbixrs1.value1=dbixrs3.value1) and ( ((id = 5))) GROUP BY name ORDER BY id ;;' ;
libdbix-recordset-perl-0.26/.pc/test.pl.patch/test.pl:1481: my $should = 'SELECT id, name, txt FROM dbixrs1, dbixrs3 WHERE (dbixrs1.value1=dbixrs3.value1) and ( ( (id = ?))) GROUP BY name ORDER BY id ;; ' ; # if ($set6 -> {'*Placeholders'}) ;
libdbix-recordset-perl-0.26/.pc/test.pl.patch/test.pl:1482: $should = 'SELECT dbixrs1.id, dbixrs1.name, dbixrs3.txt FROM dbixrs1, dbixrs3 WHERE (dbixrs1.value1=dbixrs3.value1) and ( ((id = 5))) GROUP BY name ORDER BY id ;;' if ($Driver eq 'mSQL') ;
libdbix-recordset-perl-0.26/.pc/test.pl.patch/test.pl-1483- my $is = $set6 -> LastSQLStatement ;
##############################################
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-1331- $groupby = $group?'GROUP BY':'' ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm:1332: $where = $expr?'WHERE':'' ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-1333- $fields ||= '*';
##############################################
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-2097-
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm:2098: if ($Debug > 2) { print LOG "DB: SelectWhere <$key>=<" . (defined ($val)?$val:'<undef>') ."> type = $type\n" ; }
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-2099-
##############################################
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-2594- {
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm:2595: $where = {$primkey => $val} ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-2596- }
##############################################
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-3355- my ($self, $rs) = @_ ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm:3356: my $where = $self -> {'*PreFetch'} ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset.pm-3357- my %keyhash ;
##############################################
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset/DBSeq.pm-78-
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset/DBSeq.pm:79: my $sth = $dbh -> prepare ("select cnt,maxcnt from $self->{'*table'} where name=?") or die "Cannot prepare select for $self->{'*table'} ($DBI::errstr)" ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset/DBSeq.pm-80-
##############################################
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset/DBSeq.pm-97- die "Max count reached for sequence $name" if (defined ($row->[1]) && $cnt+1 > $row->[1]) ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset/DBSeq.pm:98: $dbh -> do ("update $self->{'*table'} set cnt=cnt+1 where name='$name'") or die "Cannot update $self->{'*table'} ($DBI::errstr)" ;
libdbix-recordset-perl-0.26/.pc/spelling.patch/Recordset/DBSeq.pm-99- }
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Compat.pm-32- {
libdbix-recordset-perl-0.26/.pc/pod.patch/Compat.pm:33: warn "select * from $table where 1=0 failed $DBI::errstr" ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Compat.pm-34- return undef ;
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Compat.pm-48- {
libdbix-recordset-perl-0.26/.pc/pod.patch/Compat.pm:49: warn "select * from \"$table\" where 1=0 failed $DBI::errstr" ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Compat.pm-50- return undef ;
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-1331- $groupby = $group?'GROUP BY':'' ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm:1332: $where = $expr?'WHERE':'' ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-1333- $fields ||= '*';
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-2097-
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm:2098: if ($Debug > 2) { print LOG "DB: SelectWhere <$key>=<" . (defined ($val)?$val:'<undef>') ."> type = $type\n" ; }
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-2099-
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-2594- {
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm:2595: $where = {$primkey => $val} ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-2596- }
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-3355- my ($self, $rs) = @_ ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm:3356: my $where = $self -> {'*PreFetch'} ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset.pm-3357- my %keyhash ;
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset/DBSeq.pm-78-
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset/DBSeq.pm:79: my $sth = $dbh -> prepare ("select cnt,maxcnt from $self->{'*table'} where name=?") or die "Cannot prepare select for $self->{'*table'} ($DBI::errstr)" ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset/DBSeq.pm-80-
##############################################
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset/DBSeq.pm-97- die "Max count reached for sequence $name" if (defined ($row->[1]) && $cnt+1 > $row->[1]) ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset/DBSeq.pm:98: $dbh -> do ("update $self->{'*table'} set cnt=cnt+1 where name='$name'") or die "Cannot update $self->{'*table'} ($DBI::errstr)" ;
libdbix-recordset-perl-0.26/.pc/pod.patch/Recordset/DBSeq.pm-99- }
##############################################
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-1331- $groupby = $group?'GROUP BY':'' ;
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm:1332: $where = $expr?'WHERE':'' ;
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-1333- $fields ||= '*';
##############################################
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-2097-
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm:2098: if ($Debug > 2) { print LOG "DB: SelectWhere <$key>=<" . (defined ($val)?$val:'<undef>') ."> type = $type\n" ; }
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-2099-
##############################################
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-2594- {
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm:2595: $where = {$primkey => $val} ;
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-2596- }
##############################################
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-3355- my ($self, $rs) = @_ ;
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm:3356: my $where = $self -> {'*PreFetch'} ;
libdbix-recordset-perl-0.26/.pc/defined-hash.patch/Recordset.pm-3357- my %keyhash ;
##############################################
libdbix-recordset-perl-0.26/test.pl-1480- #my $should = 'SELECT id, name, txt FROM dbixrs1, dbixrs3 WHERE (dbixrs1.value1=dbixrs3.value1) and ( ((id = 5))) GROUP BY name ORDER BY id ;;' ;
libdbix-recordset-perl-0.26/test.pl:1481: my $should = 'SELECT id, name, txt FROM dbixrs1, dbixrs3 WHERE (dbixrs1.value1=dbixrs3.value1) and ( ( (id = ?))) GROUP BY name ORDER BY id ;; ' ; # if ($set6 -> {'*Placeholders'}) ;
libdbix-recordset-perl-0.26/test.pl:1482: $should = 'SELECT dbixrs1.id, dbixrs1.name, dbixrs3.txt FROM dbixrs1, dbixrs3 WHERE (dbixrs1.value1=dbixrs3.value1) and ( ((id = 5))) GROUP BY name ORDER BY id ;;' if ($Driver eq 'mSQL') ;
libdbix-recordset-perl-0.26/test.pl-1483- my $is = $set6 -> LastSQLStatement ;
##############################################
libdbix-recordset-perl-0.26/Compat.pm-32- {
libdbix-recordset-perl-0.26/Compat.pm:33: warn "select * from $table where 1=0 failed $DBI::errstr" ;
libdbix-recordset-perl-0.26/Compat.pm-34- return undef ;
##############################################
libdbix-recordset-perl-0.26/Compat.pm-48- {
libdbix-recordset-perl-0.26/Compat.pm:49: warn "select * from \"$table\" where 1=0 failed $DBI::errstr" ;
libdbix-recordset-perl-0.26/Compat.pm-50- return undef ;
##############################################
libdbix-recordset-perl-0.26/Recordset.pm-1331- $groupby = $group?'GROUP BY':'' ;
libdbix-recordset-perl-0.26/Recordset.pm:1332: $where = $expr?'WHERE':'' ;
libdbix-recordset-perl-0.26/Recordset.pm-1333- $fields ||= '*';
##############################################
libdbix-recordset-perl-0.26/Recordset.pm-2097-
libdbix-recordset-perl-0.26/Recordset.pm:2098: if ($Debug > 2) { print LOG "DB: SelectWhere <$key>=<" . (defined ($val)?$val:'<undef>') ."> type = $type\n" ; }
libdbix-recordset-perl-0.26/Recordset.pm-2099-
##############################################
libdbix-recordset-perl-0.26/Recordset.pm-2594- {
libdbix-recordset-perl-0.26/Recordset.pm:2595: $where = {$primkey => $val} ;
libdbix-recordset-perl-0.26/Recordset.pm-2596- }
##############################################
libdbix-recordset-perl-0.26/Recordset.pm-3355- my ($self, $rs) = @_ ;
libdbix-recordset-perl-0.26/Recordset.pm:3356: my $where = $self -> {'*PreFetch'} ;
libdbix-recordset-perl-0.26/Recordset.pm-3357- my %keyhash ;