From 93c9d246c601b2928c20ab469180389862aacdaf Mon Sep 17 00:00:00 2001 From: Palle Girgensohn Date: Thu, 10 Feb 2005 22:59:55 +0000 Subject: Fix a problem where an array is returned from a DoQuery call that should return 0 tuples. It was always returning an array that indicates it has 1 tuple. Submitted by: Birch Zimmer Approved by: ade (mentor) --- databases/p5-Pg/Makefile | 2 +- databases/p5-Pg/files/patch-Pg.pm | 11 +++++++++++ 2 files changed, 12 insertions(+), 1 deletion(-) create mode 100644 databases/p5-Pg/files/patch-Pg.pm (limited to 'databases') diff --git a/databases/p5-Pg/Makefile b/databases/p5-Pg/Makefile index ccaf0b8821c9..dc4bbeed2bb8 100644 --- a/databases/p5-Pg/Makefile +++ b/databases/p5-Pg/Makefile @@ -7,7 +7,7 @@ PORTNAME= Pg PORTVERSION= 2.1.1 -PORTREVISION= 1 +PORTREVISION= 2 PORTEPOCH= 1 CATEGORIES= databases perl5 MASTER_SITES= ftp://gborg.postgresql.org/pub/pgperl/stable/ diff --git a/databases/p5-Pg/files/patch-Pg.pm b/databases/p5-Pg/files/patch-Pg.pm new file mode 100644 index 000000000000..0f538d6b3a50 --- /dev/null +++ b/databases/p5-Pg/files/patch-Pg.pm @@ -0,0 +1,11 @@ +--- Pg.pm~ Tue Apr 20 05:25:06 2004 ++++ Pg.pm Thu Feb 10 00:17:29 2005 +@@ -69,7 +69,7 @@ + + my ($result, $status, $i, $j); + +- $$array_ref[0][0] = ''; ++ @$array_ref = (); + + if ($result = $conn->exec($query)) { + if (2 == ($status = $result->resultStatus)) { -- cgit v1.2.3