[DBD::Pg 05/14] Suppress further uninit warnings

Committed by pilcrow <[email protected]>

Subject: [DBD::Pg 05/14] Suppress further uninit warnings

---
 Pg.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Pg.pm b/Pg.pm
index dc18301..80b9128 100644
--- a/Pg.pm
+++ b/Pg.pm
@@ -1219,8 +1219,9 @@ use 5.008001;
 			    'SYSTEM VIEW'  => q{c.relkind = 'v' AND n.nspname  ~ '^pg_'},
 			);
 			my $typespec = join ' OR ' =>
-			                 map { s/^'//g; s/'$//g; $typesearch{uc($_)} }
-			                   split(',', $type || '');
+			                 grep {defined}
+			                   map { s/^'//g; s/'$//g; $typesearch{uc($_)} }
+			                     split(',', $type || '');
 			$typespec = $typespec
 			            ? "($typespec)"
 			            : "c.relkind IN ('r', 'v')"; # default any table/view
-- 
1.8.4