p5-DBD-Pg

[Jun Kuriyama]

At Fri, 04 Mar 2005 11:39:50 +0100,
Mathieu Arnold wrote:
> | Is it normal ?
> | Perhaps downgrade is better ...
> 
> Which perl version ? Can you give a sniplet of code which has the problem ?

Okay, at least on my system (perl-5.8.6, postgresql-7.4.7), this
patchi fixes the problem.  Could you please testing and commit?

# I'll submit this to development team.


Index: Makefile
===================================================================
RCS file: /home/ncvs/ports/databases/p5-DBD-Pg/Makefile,v
retrieving revision 1.61
diff -u -r1.61 Makefile
--- Makefile	2 Mar 2005 18:18:57 -0000	1.61
+++ Makefile	6 Mar 2005 09:53:08 -0000
@@ -7,6 +7,7 @@
 
 PORTNAME=	DBD-Pg
 PORTVERSION=	1.40
+PORTREVISION=	1
 CATEGORIES=	databases perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	DBD
Index: files/patch-dbdimp.c
===================================================================
RCS file: files/patch-dbdimp.c
diff -N files/patch-dbdimp.c
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ files/patch-dbdimp.c	6 Mar 2005 09:35:26 -0000
@@ -0,0 +1,15 @@
+--- dbdimp.c.orig	Sun Mar  6 18:34:58 2005
++++ dbdimp.c	Sun Mar  6 18:35:10 2005
+@@ -1662,7 +1662,11 @@
+ 			/* Populate paramTypes */
+ 			paramTypes = calloc(imp_sth->numphs, sizeof(*paramTypes));
+ 			for (x=0,currph=imp_sth->ph; NULL != currph; currph=currph->nextph) {
+-				paramTypes[x++] = currph->bind_type->type_id;
++				if (BYTEAOID==currph->bind_type->type_id) {
++					paramTypes[x++] = currph->bind_type->type_id;
++				} else {
++					paramTypes[x++] = 0;
++				}
+ 			}
+ 		
+ 			if (dbis->debug >= 10) {


-- 
Jun Kuriyama <kuriyama at imgsrc.co.jp> // IMG SRC, Inc.
             <kuriyama at FreeBSD.org> // FreeBSD Project