From 48cb244fb9aca1620e35a14617ca5869b3ea065a Mon Sep 17 00:00:00 2001 From: Noah Misch Date: Tue, 29 Jun 2021 00:44:57 -0700 Subject: [PATCH] Remove literal backslash from Perl \Q ... \E. The behavior changed sometime after Perl 5.8.9, and "man perlre" says it "may lead to confusing results." Per buildfarm member gaur. This repairs commit a7a7be1f2fa6b9f0f48e69f12256d8f588af729b. Discussion: https://postgr.es/m/20210629053627.GA2061079@rfd.leadboat.com --- src/bin/pg_dump/t/002_pg_dump.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/bin/pg_dump/t/002_pg_dump.pl b/src/bin/pg_dump/t/002_pg_dump.pl index ac5d38ff4c4..448b1be26ce 100644 --- a/src/bin/pg_dump/t/002_pg_dump.pl +++ b/src/bin/pg_dump/t/002_pg_dump.pl @@ -1431,7 +1431,7 @@ my %tests = ( 'CREATE ROLE regress_quoted...' => { create_order => 1, create_sql => 'CREATE ROLE "regress_quoted \"" role";', - regexp => qr/^\QCREATE ROLE "regress_quoted \"" role";\E/m, + regexp => qr/^CREATE ROLE "regress_quoted \\"" role";/m, like => { pg_dumpall_dbprivs => 1, pg_dumpall_exclude => 1, @@ -3421,7 +3421,7 @@ my %tests = ( ALTER SCHEMA public OWNER TO "regress_quoted \"" role"; REVOKE ALL ON SCHEMA public FROM "regress_quoted \"" role";', regexp => qr/^ - \QREVOKE ALL ON SCHEMA public FROM "regress_quoted \"" role";\E + \QREVOKE ALL ON SCHEMA public FROM "regress_quoted \E\\""\ role"; \n\QREVOKE ALL ON SCHEMA public FROM PUBLIC;\E \n\QGRANT USAGE ON SCHEMA public TO PUBLIC;\E /xm, -- 2.39.5