[svn:DBD-Pg] r11872 - DBD-Pg/trunk

[email protected]
Newsgroups perl.dbd.pg.changes
Message-ID <[email protected]>
Author: turnstep
Date: Tue Sep 23 06:33:46 2008
New Revision: 11872

Modified:
   DBD-Pg/trunk/types.c

Log:
Use base type for array delimiter.


Modified: DBD-Pg/trunk/types.c
==============================================================================
--- DBD-Pg/trunk/types.c	(original)
+++ DBD-Pg/trunk/types.c	Tue Sep 23 06:33:46 2008
@@ -394,6 +394,12 @@
 			sqlc    => 0,
 			svtype  => 0,
 		};
+		if ($name =~ /_/) {
+			(my $basename = $name) =~ s/_//;
+			if (exists $pgtype{$basename}) {
+				$pgtype{$name}{delim} = $pgtype{$basename}{delim};
+			}
+		}
 		length($name) > $maxlen and $maxlen = length($name);
 		$thisname = $name;
 		## Special hack for array types
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.