[DBD::Pg 04/14] Suppress uninitialized split warning

[dbdpg-commits]

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

Subject: [DBD::Pg 04/14] Suppress uninitialized split warning

---
 Pg.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Pg.pm b/Pg.pm
index 4f05fcd..dc18301 100644
--- a/Pg.pm
+++ b/Pg.pm
@@ -1220,7 +1220,7 @@ use 5.008001;
                        );
                        my $typespec = join ' OR ' =>
                                         map { s/^'//g; s/'$//g; 
$typesearch{uc($_)} }
-                                          split(',', $type);
+                                          split(',', $type || '');
                        $typespec = $typespec
                                    ? "($typespec)"
                                    : "c.relkind IN ('r', 'v')"; # default any 
table/view
-- 
1.8.4