Index: DBD-Pg/dbdimp.c
===================================================================
RCS file: /sysdata/cvs/DBD-Pg/dbdimp.c,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -u -r1.1.1.1 -r1.1.1.1.2.1
--- DBD-Pg/dbdimp.c 1 Apr 2009 15:18:00 -0000 1.1.1.1
+++ DBD-Pg/dbdimp.c 1 Apr 2009 15:49:05 -0000 1.1.1.1.2.1
@@ -2113,9 +2113,9 @@
TRACE_PQPREPARE;
result = PQprepare(imp_dbh->conn, imp_sth->prepare_name, statement, params, imp_sth->PQoids);
+ status = _sqlstate(aTHX_ imp_dbh, result);
+
if (result) {
- TRACE_PQRESULTSTATUS;
- status = PQresultStatus(result);
TRACE_PQCLEAR;
PQclear(result);
}