[DBD::Pg 02/14] reformat types
[email protected] Sun, 27 Jul 2014 05:14:03 +0000
| Newsgroups | perl.dbd.pg.changes |
|---|---|
| Message-ID | <[email protected]> |
Committed by pilcrow <[email protected]> Subject: [DBD::Pg 02/14] reformat types --- Pg.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Pg.pm b/Pg.pm index c4a9fb7..4f05fcd 100644 --- a/Pg.pm +++ b/Pg.pm @@ -1212,18 +1212,18 @@ use 5.008001; push @search, 'c.relname ' . ($table =~ /[_%]/ ? 'LIKE ' : '= ') . $dbh->quote($table); } - my %typesearch = ( - TABLE => q{c.relkind = 'r' AND n.nspname !~ '^pg_'}, - VIEW => q{c.relkind = 'v' AND n.nspname !~ '^pg_'}, - 'SYSTEM TABLE' => q{c.relkind = 'r' AND n.nspname ~ '^pg_'}, - 'SYSTEM VIEW' => q{c.relkind = 'v' AND n.nspname ~ '^pg_'}, - ); + my %typesearch = ( + TABLE => q{c.relkind = 'r' AND n.nspname !~ '^pg_'}, + VIEW => q{c.relkind = 'v' AND n.nspname !~ '^pg_'}, + 'SYSTEM TABLE' => q{c.relkind = 'r' AND n.nspname ~ '^pg_'}, + 'SYSTEM VIEW' => q{c.relkind = 'v' AND n.nspname ~ '^pg_'}, + ); my $typespec = join ' OR ' => map { s/^'//g; s/'$//g; $typesearch{uc($_)} } split(',', $type); $typespec = $typespec ? "($typespec)" - : "c.relkind IN ('r', 'v')"; # default any table/view + : "c.relkind IN ('r', 'v')"; # default any table/view push @search, $typespec; my $TSJOIN = 'pg_catalog.pg_tablespace t ON (t.oid = c.reltablespace)'; -- 1.8.4