This is an automated email from the git hooks/post-receive script.
carnil pushed a commit to branch wheezy
in repository libdbd-pg-perl.
commit e42b6333aeddada95b7398a0ed92efc2250b3e6e
Author: Salvatore Bonaccorso <car...@debian.org>
Date: Sat Apr 4 13:13:16 2015 +0200
Add 0001-Adjustments-for-the-loss-of-spclocation-in-9.2.patch patch
Fixes interoperability problem between wheezy clients using DBD::Pg
against newer PostgreSQL versions.
Thanks: Christoph Biedl <debian.a...@manchmal.in-ulm.de>
Closes: #781722
---
...tments-for-the-loss-of-spclocation-in-9.2.patch | 37 ++++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 38 insertions(+)
diff --git
a/debian/patches/0001-Adjustments-for-the-loss-of-spclocation-in-9.2.patch
b/debian/patches/0001-Adjustments-for-the-loss-of-spclocation-in-9.2.patch
new file mode 100644
index 0000000..f7cdf4a
--- /dev/null
+++ b/debian/patches/0001-Adjustments-for-the-loss-of-spclocation-in-9.2.patch
@@ -0,0 +1,37 @@
+From 00f3d68a79beb31a06460dd8f7cb73168c33ca5c Mon Sep 17 00:00:00 2001
+From: Greg Sabino Mullane <g...@endpoint.com>
+Date: Thu, 31 May 2012 14:10:19 -0400
+Subject: [PATCH] Adjustments for the loss of spclocation in 9.2
+
+---
+ Pg.pm | 7 +++++++
+ 1 file changed, 7 insertions(+)
+
+diff --git a/Pg.pm b/Pg.pm
+index ef702d1..586d37f 100644
+--- a/Pg.pm
++++ b/Pg.pm
+@@ -740,6 +740,10 @@ use 5.006001;
+ $whereclause
+ };
+
++ if ($dbh->{private_dbdpg}{version} >= 90200) {
++ $pri_key_sql =~
s/t.spclocation/pg_tablespace_location(t.oid)/;
++ }
++
+ my $sth = $dbh->prepare($pri_key_sql) or return undef;
+ $sth->execute();
+ my $info = $sth->fetchall_arrayref()->[0];
+@@ -1152,6 +1156,9 @@ use 5.006001;
+ $extracols = q{,n.nspname AS pg_schema, c.relname AS
pg_table};
+ my @search;
+ my $showtablespace = ', quote_ident(t.spcname) AS
"pg_tablespace_name", quote_ident(t.spclocation) AS "pg_tablespace_location"';
++ if ($dbh->{private_dbdpg}{version} >= 90200) {
++ $showtablespace = ', quote_ident(t.spcname) AS
"pg_tablespace_name", quote_ident(pg_tablespace_location(t.oid)) AS
"pg_tablespace_location"';
++ }
+
+ ## If the schema or table has an underscore or a %, use
a LIKE comparison
+ if (defined $schema and length $schema) {
+--
+2.1.4
+
diff --git a/debian/patches/series b/debian/patches/series
index d4b290f..a038562 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
pod-spelling.patch
testdir.patch
+0001-Adjustments-for-the-loss-of-spclocation-in-9.2.patch
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libdbd-pg-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
