[libdbd-pg-perl] 01/02: Add 0001-Adjustments-for-the-loss-of-spclocation-in-9.2.patch patch

[Salvatore Bonaccorso]

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 <carnil at 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.axhn at 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 <greg at 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