From owner-freebsd-perl@FreeBSD.ORG Sun Mar 6 09:55:35 2005 Return-Path: Delivered-To: freebsd-perl@freebsd.org Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125]) by hub.freebsd.org (Postfix) with ESMTP id D644816A4CF; Sun, 6 Mar 2005 09:55:35 +0000 (GMT) Received: from black.imgsrc.co.jp (black.imgsrc.co.jp [210.226.20.147]) by mx1.FreeBSD.org (Postfix) with ESMTP id 2B1E243D3F; Sun, 6 Mar 2005 09:55:35 +0000 (GMT) (envelope-from kuriyama@imgsrc.co.jp) Received: from localhost (localhost [127.0.0.1]) by black.imgsrc.co.jp (Postfix) with ESMTP id 1711050C8B; Sun, 6 Mar 2005 18:55:34 +0900 (JST) Received: from black.imgsrc.co.jp (black.imgsrc.co.jp [IPv6:2001:218:422:2::9999]) by black.imgsrc.co.jp (Postfix) with ESMTP id 68C5E50CA5; Sun, 6 Mar 2005 18:55:32 +0900 (JST) Date: Sun, 06 Mar 2005 18:55:32 +0900 Message-ID: <7mzmxhnlnv.wl%kuriyama@imgsrc.co.jp> From: Jun Kuriyama To: Mathieu Arnold In-Reply-To: <64573D1015B24642D50F2493@[192.168.8.51]> References: <20050303195408.GA20131@localhost> <64573D1015B24642D50F2493@192.168.8.51> User-Agent: Wanderlust/2.12.0 (Your Wildest Dreams) SEMI/1.14.6 (Maruoka) FLIM/1.14.7 (=?ISO-8859-4?Q?Sanj=F2?=) APEL/10.6 Emacs/21.3 (i386--freebsd) MULE/5.0 (SAKAKI) MIME-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: text/plain; charset=US-ASCII X-Virus-Scanned: by amavisd 0.1 cc: Bachelier Vincent cc: perl@FreeBSD.org Subject: Re: p5-DBD-Pg X-BeenThere: freebsd-perl@freebsd.org X-Mailman-Version: 2.1.1 Precedence: list List-Id: maintainer of a number of perl-related ports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 06 Mar 2005 09:55:36 -0000 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 // IMG SRC, Inc. // FreeBSD Project