=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libclass-dbi-perl-3.0.17/t/02-Film.t-331- my $btaste2 = Film->retrieve('Bad Taste'); libclass-dbi-perl-3.0.17/t/02-Film.t:332: is Scalar::Util::refaddr($btaste), Scalar::Util::refaddr($btaste2), libclass-dbi-perl-3.0.17/t/02-Film.t-333- "Retrieving twice gives ref to same object"; ############################################## libclass-dbi-perl-3.0.17/t/02-Film.t-336- my $btaste3 = Film->retrieve('Bad Taste'); libclass-dbi-perl-3.0.17/t/02-Film.t:337: isnt Scalar::Util::refaddr($btaste2), Scalar::Util::refaddr($btaste3), libclass-dbi-perl-3.0.17/t/02-Film.t-338- "Removing from object_index and retrieving again gives new object"; ############################################## libclass-dbi-perl-3.0.17/t/02-Film.t-341- my $btaste4 = Film->retrieve('Bad Taste'); libclass-dbi-perl-3.0.17/t/02-Film.t:342: isnt Scalar::Util::refaddr($btaste2), Scalar::Util::refaddr($btaste4), libclass-dbi-perl-3.0.17/t/02-Film.t-343- "Clearing cache and retrieving again gives new object"; ############################################## libclass-dbi-perl-3.0.17/lib/Class/DBI/Query.pm-128- my ($self, $type, @cols) = @_; libclass-dbi-perl-3.0.17/lib/Class/DBI/Query.pm:129: my @where = $self->where_clause; libclass-dbi-perl-3.0.17/lib/Class/DBI/Query.pm-130- my $last = pop @where || "";