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

[email protected] Sun, 27 Jul 2014 05:14:05 +0000

Newsgroups	perl.dbd.pg.changes
Message-ID	<[email protected]>

Committed by pilcrow <[email protected]>

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