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

[dbdpg-commits]

Committed by pilcrow <m...@pilcrow.madison.wi.us>

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