From 35080ce5535e233428a7e17320e111962daec7e1 Mon Sep 17 00:00:00 2001
From: Dagfinn Ilmari Mannsaker <ilmari@sid.internal>
Date: Tue, 9 Apr 2019 17:40:55 +0100
Subject: [PATCH] Remove usage of deprecated pg_constraint.consrc column
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

It doesn't track outside change that might affect the representation,
and will be removed in PostgreSQL 12.

Petr Písař: Ported to 3.7.4 from 35080ce5535e233428a7e17320e111962daec7e1.
---
 Pg.pm   | 3 ++-

diff --git a/Pg.pm b/Pg.pm
index 9e0e9d7..13cd68f 100644
--- a/Pg.pm
+++ b/Pg.pm
@@ -530,7 +530,8 @@ use 5.008001;
 			$row->[$col_map{DATA_TYPE}] = DBD::Pg::db::pg_type_info($dbh,$row->[$col_map{DATA_TYPE}]);
 
 			# Add pg_constraint
-			my $SQL = q{SELECT consrc FROM pg_catalog.pg_constraint WHERE contype = 'c' AND }.
+			my $SQL = q{SELECT pg_catalog.pg_get_constraintdef(oid) }.
+				q{FROM pg_catalog.pg_constraint WHERE contype = 'c' AND }.
 				qq{conrelid = $aid AND conkey = '{$attnum}'};
 			my $info = $dbh->selectall_arrayref($SQL);
 			if (@$info) {
-- 
2.21.0