=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbix-dr-perl-0.32/.travis.yml-13- - sudo apt-get -qq --yes install devscripts dpkg-dev libdbix-dr-perl-0.32/.travis.yml:14: - dch --newversion `git describe|sed -E 's#.*/##'|sed -E 's/-([0-9]+)-(.{8})$/+\1.\2/'`~$TRAVIS_DEBIAN_DISTRIBUTION --force-distribution --distribution nowtaxi 'Autobuilt by git commit' libdbix-dr-perl-0.32/.travis.yml-15- - git commit -m 'update changelog' debian/changelog ############################################## libdbix-dr-perl-0.32/README.pod-215- $dbh->perform( libdbix-dr-perl-0.32/README.pod:216: 'UPDATE tbl SET a = 1 WHERE id = <%= $id %>', libdbix-dr-perl-0.32/README.pod-217- id => 123 ############################################## libdbix-dr-perl-0.32/debian/rules-28- -czvf libdbix-dr-perl_$(DEBVERSION).orig.tar.gz \ libdbix-dr-perl-0.32/debian/rules:29: `basename $(CURDIR)` libdbix-dr-perl-0.32/debian/rules-30- ############################################## libdbix-dr-perl-0.32/lib/DBIx/DR.pm-215- $dbh->perform( libdbix-dr-perl-0.32/lib/DBIx/DR.pm:216: 'UPDATE tbl SET a = 1 WHERE id = <%= $id %>', libdbix-dr-perl-0.32/lib/DBIx/DR.pm-217- id => 123 ############################################## libdbix-dr-perl-0.32/lib/DBIx/DR/Iterator.pm-289- if (ref $value and ref $self->{$method}) { libdbix-dr-perl-0.32/lib/DBIx/DR/Iterator.pm:290: $is_changed = Scalar::Util::refaddr($value) libdbix-dr-perl-0.32/lib/DBIx/DR/Iterator.pm:291: != Scalar::Util::refaddr($self->{$method}); libdbix-dr-perl-0.32/lib/DBIx/DR/Iterator.pm-292- } elsif(ref($value) ne ref($self->{$method})) { ############################################## libdbix-dr-perl-0.32/t/035-dr.t-151- libdbix-dr-perl-0.32/t/035-dr.t:152:$res = $dbh->single('SELECT * FROM tbl WHERE id = <%= $id %>', id => 1); libdbix-dr-perl-0.32/t/035-dr.t-153-ok $res, 'Select one exists row'; ############################################## libdbix-dr-perl-0.32/t/035-dr.t-157- libdbix-dr-perl-0.32/t/035-dr.t:158:$res = $dbh->single('SELECT * FROM tbl WHERE id = <%= $id %>', id => 5000); libdbix-dr-perl-0.32/t/035-dr.t-159-ok !$res, 'No results';