Commit48cb244

committed

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. Thisrepairs commita7a7be1.Discussion:https://postgr.es/m/20210629053627.GA2061079@rfd.leadboat.com

1 parent6a6389a commit48cb244Copy full SHA for 48cb244

File tree

-2

lines changed

-2

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1431,7 +1431,7 @@`
`1431`	`1431`	`'CREATE ROLE regress_quoted...'=> {`
`1432`	`1432`	`create_order=> 1,`
`1433`	`1433`	`create_sql=>'CREATE ROLE "regress_quoted \"" role";',`
`1434`		`-regexp=>qr/^\QCREATE ROLE "regress_quoted\"" role";\E/m,`
	`1434`	`+regexp=>qr/^CREATE ROLE "regress_quoted\\"" role";/m,`
`1435`	`1435`	`like=> {`
`1436`	`1436`	`pg_dumpall_dbprivs=> 1,`
`1437`	`1437`	`pg_dumpall_exclude=> 1,`
`@@ -3421,7 +3421,7 @@`
`3421`	`3421`	`ALTER SCHEMA public OWNER TO "regress_quoted\"" role";`
`3422`	`3422`	`REVOKE ALL ON SCHEMA public FROM "regress_quoted\"" role";',`
`3423`	`3423`	`regexp => qr/^`
`3424`		`-\QREVOKE ALL ON SCHEMA public FROM "regress_quoted\"" role";\E`
	`3424`	`+\QREVOKE ALL ON SCHEMA public FROM "regress_quoted\E\\""\role";`
`3425`	`3425`	`\n\QREVOKE ALL ON SCHEMA public FROM PUBLIC;\E`
`3426`	`3426`	`\n\QGRANT USAGE ON SCHEMA public TO PUBLIC;\E`
`3427`	`3427`	`/xm,`

Comments

(0)