|
 |
1b4a88 |
From 88d2f8f1fc95bcd16e95d3fc667783fb7a9ab05b Mon Sep 17 00:00:00 2001
|
|
|
1b4a88 |
From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= <ilmari@ilmari.org>
|
|
|
1b4a88 |
Date: Fri, 11 Jan 2019 23:47:29 +0000
|
|
|
1b4a88 |
Subject: [PATCH] Remove usage of deprecated pg_attrdef.adsrc column
|
|
|
1b4a88 |
MIME-Version: 1.0
|
|
|
1b4a88 |
Content-Type: text/plain; charset=UTF-8
|
|
|
1b4a88 |
Content-Transfer-Encoding: 8bit
|
|
|
1b4a88 |
|
|
|
1b4a88 |
It doesn't track outside change that might affect the representation,
|
|
|
1b4a88 |
and will be removed in PostgreSQL 12.
|
|
|
1b4a88 |
|
|
|
1b4a88 |
Petr Písař: Ported to 3.7.4 from 88d2f8f1fc95bcd16e95d3fc667783fb7a9ab05b.
|
|
|
1b4a88 |
---
|
|
|
1b4a88 |
Pg.pm | 4 ++--
|
|
|
1b4a88 |
|
|
|
1b4a88 |
diff --git a/Pg.pm b/Pg.pm
|
|
|
1b4a88 |
index 2b46800..0ffe083 100644
|
|
|
1b4a88 |
--- a/Pg.pm
|
|
|
1b4a88 |
+++ b/Pg.pm
|
|
|
1b4a88 |
@@ -349,12 +349,12 @@ use 5.008001;
|
|
|
1b4a88 |
$oid =~ /(\d+)/ or die qq{OID was not numeric?!?\n};
|
|
|
1b4a88 |
$oid = $1;
|
|
|
1b4a88 |
## This table has a primary key. Is there a sequence associated with it via a unique, indexed column?
|
|
|
1b4a88 |
- $SQL = "SELECT a.attname, i.indisprimary, pg_catalog.pg_get_expr(adbin,adrelid)\n".
|
|
|
1b4a88 |
+ $SQL = "SELECT a.attname, i.indisprimary, pg_catalog.pg_get_expr(d.adbin, d.adrelid)\n".
|
|
|
1b4a88 |
"FROM pg_catalog.pg_index i, pg_catalog.pg_attribute a, pg_catalog.pg_attrdef d\n ".
|
|
|
1b4a88 |
"WHERE i.indrelid = $oid AND d.adrelid=a.attrelid AND d.adnum=a.attnum\n".
|
|
|
1b4a88 |
" AND a.attrelid = $oid AND i.indisunique IS TRUE\n".
|
|
|
1b4a88 |
" AND a.atthasdef IS TRUE AND i.indkey[0]=a.attnum\n".
|
|
|
1b4a88 |
- q{ AND d.adsrc ~ '^nextval'};
|
|
|
1b4a88 |
+ " AND pg_catalog.pg_get_expr(d.adbin, d.adrelid) ~ '^nextval'";
|
|
|
1b4a88 |
$sth = $dbh->prepare($SQL);
|
|
|
1b4a88 |
$count = $sth->execute();
|
|
|
1b4a88 |
if (!defined $count or $count eq '0E0') {
|
|
|
1b4a88 |
--
|
|
|
1b4a88 |
2.21.0
|
|
|
1b4a88 |
|