=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbd-pg-perl-3.14.2/types.c-568-close $newfh or die qq{Could not close "$file.tmp": $!\n}; libdbd-pg-perl-3.14.2/types.c:569:system("mv $file.tmp $file"); libdbd-pg-perl-3.14.2/types.c-570-print "Wrote $file\n"; ############################################## libdbd-pg-perl-3.14.2/types.c-598-close $oldfh or die qq{Could not close "$file": $!\n}; libdbd-pg-perl-3.14.2/types.c:599:system("mv $file.tmp $file"); libdbd-pg-perl-3.14.2/types.c-600-print "Wrote $file\n"; ############################################## libdbd-pg-perl-3.14.2/types.c-645-close $oldfh or die qq{Could not close "$file": $!\n}; libdbd-pg-perl-3.14.2/types.c:646:system("mv $file.tmp $file"); libdbd-pg-perl-3.14.2/types.c-647-print "Wrote $file\n"; ############################################## libdbd-pg-perl-3.14.2/types.c-669-close $oldfh or die qq{Could not close "$file": $!\n}; libdbd-pg-perl-3.14.2/types.c:670:system("mv $file.tmp $file"); libdbd-pg-perl-3.14.2/types.c-671-print "Wrote $file\n"; ############################################## libdbd-pg-perl-3.14.2/types.c-697-close $oldfh or die qq{Could not close "$file": $!\n}; libdbd-pg-perl-3.14.2/types.c:698:system("mv $file.tmp $file"); libdbd-pg-perl-3.14.2/types.c-699-print "Wrote $file\n"; ############################################## libdbd-pg-perl-3.14.2/types.c-804-close($newfh) or die qq{Could not close "$file.tmp": $!\n}; libdbd-pg-perl-3.14.2/types.c:805:system("mv $file.tmp $file"); libdbd-pg-perl-3.14.2/types.c-806-print "Wrote $file\n"; ############################################## libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm-168- return unless $_[0]->{pg_config}; libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm:169: $_[0]->info(qq{Executing `"$_[0]->{pg_config}" $_[1]`}); libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm:170: my $info = `"$_[0]->{pg_config}" $_[1]`; libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm-171- chomp $info; ############################################## libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm-251- $self->error("Failed to find PostgreSQL version with ". libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm:252: "`$self->{pg_config} --version`"); libdbd-pg-perl-3.14.2/t/lib/App/Info/RDBMS/PostgreSQL.pm-253- return; ############################################## libdbd-pg-perl-3.14.2/t/03dbmethod.t-1279-my $fktables = join ',' => map { "'dbd_pg_test$_'" } (1..3); libdbd-pg-perl-3.14.2/t/03dbmethod.t:1280:$SQL = "SELECT n.nspname||'.'||r.relname FROM pg_catalog.pg_class r, pg_catalog.pg_namespace n WHERE relkind='r' AND r.relnamespace = n.oid AND r.relname IN ($fktables)"; libdbd-pg-perl-3.14.2/t/03dbmethod.t-1281-{ ############################################## libdbd-pg-perl-3.14.2/t/03dbmethod.t-2047- $t='DB handle method "pg_lo_import" inserts correct data'; libdbd-pg-perl-3.14.2/t/03dbmethod.t:2048: $SQL = "SELECT data FROM pg_largeobject where loid = $handle"; libdbd-pg-perl-3.14.2/t/03dbmethod.t-2049- $info = $dbh->selectall_arrayref($SQL)->[0][0]; ############################################## libdbd-pg-perl-3.14.2/t/03dbmethod.t-2074- $t='DB handle method "pg_lo_import_with_oid" inserts correct data'; libdbd-pg-perl-3.14.2/t/03dbmethod.t:2075: $SQL = "SELECT data FROM pg_largeobject where loid = $thandle"; libdbd-pg-perl-3.14.2/t/03dbmethod.t-2076- $info = $dbh->selectall_arrayref($SQL)->[0][0]; ############################################## libdbd-pg-perl-3.14.2/t/12placeholders.t-65-$sth->execute(100); libdbd-pg-perl-3.14.2/t/12placeholders.t:66:my $sql = "SELECT pname FROM dbd_pg_test WHERE pname = $quo"; libdbd-pg-perl-3.14.2/t/12placeholders.t-67-$sth = $dbh->prepare($sql); ############################################## libdbd-pg-perl-3.14.2/t/12placeholders.t-94-$t='Execute with $1 placeholder works'; libdbd-pg-perl-3.14.2/t/12placeholders.t:95:$sql = q{SELECT pname FROM dbd_pg_test WHERE pname = $1 AND pname <> 'foo'}; libdbd-pg-perl-3.14.2/t/12placeholders.t-96-$sth = $dbh->prepare($sql); ############################################## libdbd-pg-perl-3.14.2/t/12placeholders.t-590-$dbh->{pg_placeholder_nocolons} = 0; libdbd-pg-perl-3.14.2/t/12placeholders.t:591:$SQL = q{SELECT argh[1:2] FROM dbd_pg_test_geom WHERE id = $1}; libdbd-pg-perl-3.14.2/t/12placeholders.t-592-eval { ############################################## libdbd-pg-perl-3.14.2/t/20savepoints.t-43-$t='Only row 500 and 502 should be committed'; libdbd-pg-perl-3.14.2/t/20savepoints.t:44:my $ids = $dbh->selectcol_arrayref('SELECT id FROM dbd_pg_test WHERE pname = ?',undef,$str); libdbd-pg-perl-3.14.2/t/20savepoints.t-45-ok (eq_set($ids, [500, 502]), $t); ############################################## libdbd-pg-perl-3.14.2/t/20savepoints.t-56-$t='Implicit rollback on deallocate should rollback to last savepoint'; libdbd-pg-perl-3.14.2/t/20savepoints.t:57:$ids = $dbh->selectcol_arrayref('SELECT id FROM dbd_pg_test WHERE pname = ?',undef,$str); libdbd-pg-perl-3.14.2/t/20savepoints.t-58-ok (eq_set($ids, [500, 502, 503, 504]), $t); ############################################## libdbd-pg-perl-3.14.2/Pg.pm-603- ? 'enumsortorder' : 'oid'; libdbd-pg-perl-3.14.2/Pg.pm:604: $SQL = "SELECT enumlabel FROM pg_catalog.pg_enum WHERE enumtypid = $typoid ORDER BY $order_column"; libdbd-pg-perl-3.14.2/Pg.pm-605- $row->[$col_map{pg_enum_values}] = $dbh->selectcol_arrayref($SQL); ############################################## libdbd-pg-perl-3.14.2/Pg.pm-670- JOIN pg_catalog.pg_namespace n ON n.oid = d.relnamespace libdbd-pg-perl-3.14.2/Pg.pm:671: WHERE d.relname = ? $schema_where libdbd-pg-perl-3.14.2/Pg.pm-672- UNION ALL ############################################## libdbd-pg-perl-3.14.2/Pg.pm-814- FROM pg_catalog.pg_attribute a, pg_catalog.pg_type t libdbd-pg-perl-3.14.2/Pg.pm:815: WHERE a.attrelid = '$info->[0]' libdbd-pg-perl-3.14.2/Pg.pm-816- AND a.atttypid = t.oid ############################################## libdbd-pg-perl-3.14.2/Pg.pm-2541- $dbh->{pg_placeholder_dollaronly} = 1; libdbd-pg-perl-3.14.2/Pg.pm:2542: $sth = $dbh->prepare(q{SELECT * FROM mytable WHERE lseg1 ?# lseg2 AND name = $1}); libdbd-pg-perl-3.14.2/Pg.pm-2543- $sth->execute('segname'); ############################################## libdbd-pg-perl-3.14.2/Pg.pm-2546- libdbd-pg-perl-3.14.2/Pg.pm:2547: $sth = $dbh->prepare(q{SELECT * FROM mytable WHERE lseg1 ?-| lseg2 AND name = $1}, libdbd-pg-perl-3.14.2/Pg.pm-2548- {pg_placeholder_dollaronly => 1}); ############################################## libdbd-pg-perl-3.14.2/quote.c-1086-my $ofile = 'quote.c'; libdbd-pg-perl-3.14.2/quote.c:1087:system("mv $tempfile $ofile"); libdbd-pg-perl-3.14.2/quote.c-1088-print "Wrote $ofile\n";