diff options
| author | Palle Girgensohn <girgen@FreeBSD.org> | 2005-02-10 22:59:55 +0000 |
|---|---|---|
| committer | Palle Girgensohn <girgen@FreeBSD.org> | 2005-02-10 22:59:55 +0000 |
| commit | 93c9d246c601b2928c20ab469180389862aacdaf (patch) | |
| tree | acbddea4b4130b41fee3308297c740c7567e1a24 | |
| parent | - Update to 050119 (diff) | |
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 <birch at naturalpoint dot com>
Approved by: ade (mentor)
| -rw-r--r-- | databases/p5-Pg/Makefile | 2 | ||||
| -rw-r--r-- | databases/p5-Pg/files/patch-Pg.pm | 11 |
2 files changed, 12 insertions, 1 deletions
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)) { |