[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