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
