From owner-freebsd-perl@FreeBSD.ORG Tue Mar 8 13:46:07 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 4472616A4CE for ; Tue, 8 Mar 2005 13:46:07 +0000 (GMT) Received: from black.imgsrc.co.jp (black.imgsrc.co.jp [210.226.20.147]) by mx1.FreeBSD.org (Postfix) with ESMTP id 8441543D39 for ; Tue, 8 Mar 2005 13:46:06 +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 4BD6F50CA5; Tue, 8 Mar 2005 22:46:05 +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 A459650CB7; Tue, 8 Mar 2005 22:46:03 +0900 (JST) Date: Tue, 08 Mar 2005 22:46:03 +0900 Message-ID: <7moedumesk.wl%kuriyama@imgsrc.co.jp> From: Jun Kuriyama To: Vincent Bachelier In-Reply-To: <20050308123157.GA975@localhost> References: <20050308074451.90940.qmail@web25308.mail.ukl.yahoo.com> <2CC5E3844B16ED89C0991035@192.168.1.5> <20050308123157.GA975@localhost> 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: 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: Tue, 08 Mar 2005 13:46:07 -0000 My patch was wrong. Original developers are working on this problem. Can you try with this? 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 13:27:57 -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 8 Mar 2005 13:42:45 -0000 @@ -0,0 +1,42 @@ +--- dbdimp.c.orig Tue Mar 8 22:41:12 2005 ++++ dbdimp.c Tue Mar 8 22:41:36 2005 +@@ -1,6 +1,6 @@ + /* + +- $Id: dbdimp.c,v 1.98 2005/01/29 18:53:52 turnstep Exp $ ++ $Id: dbdimp.c,v 1.99 2005/03/07 23:40:45 turnstep Exp $ + + Copyright (c) 2002-2005 PostgreSQL Global Development Group + Portions Copyright (c) 2002 Jeffrey W. Baker +@@ -793,7 +793,7 @@ + 2. The attribute "direct" is false + 3. We can handle server-side prepares + 4. The attribute "pg_server_prepare" is not 0 +- 5. The attribute "pg_prepare_now" is true ++ 5. The attribute "pg_prepare_now" is true and we are a PG8 or up compiled server + */ + if (imp_sth->is_dml && + !imp_sth->direct && +@@ -1517,7 +1517,9 @@ + execsize = imp_sth->totalsize; /* Total of all segments */ + + /* If using plain old PQexec, we need to quote each value ourselves */ +- if (imp_dbh->pg_protocol < 3) { ++ if (imp_dbh->pg_protocol < 3 || ++ (1 != imp_sth->server_prepare && ++ imp_sth->numbound != imp_sth->numphs)) { + for (currph=imp_sth->ph; NULL != currph; currph=currph->nextph) { + if (NULL == currph->value) { + Renew(currph->quoted, 5, char); /* freed in dbd_st_execute (and above) */ +@@ -1628,7 +1630,10 @@ + + /* PQexecParams */ + +- if (imp_dbh->pg_protocol >= 3 && imp_sth->numphs) { ++ if (imp_dbh->pg_protocol >= 3 && ++ imp_sth->numphs && ++ (1 == imp_sth->server_prepare || ++ imp_sth->numbound == imp_sth->numphs)) { + + if (dbis->debug >= 5) + PerlIO_printf(DBILOGFP, " dbdpg: using PQexecParams\n"); -- Jun Kuriyama // IMG SRC, Inc. // FreeBSD Project