From 1188b9b2c3b987e2abe3e0dca0c6dfe6f350a6bd Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Wed, 2 Aug 2017 15:07:21 -0400 Subject: [PATCH] Silence warning from modern perl about unescaped braces Back-patch commit 76a1c97bf21c301f61bb41345e0cdd0d365b2086 into the older branches (9.5 and before). This is needed because perl 5.26 and later treats the case as an error not just a warning. Original patch by Andrew Dunstan, need for back-patch noted by Ashutosh Sharma Discussion: https://postgr.es/m/CAE9k0PkfNcmj9pA7Yx4qQ=K=3aY4TuiRhp7KYpayDWm9MYsnjg@mail.gmail.com --- src/tools/msvc/Install.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm index 88c88c88be5..bd657b90963 100644 --- a/src/tools/msvc/Install.pm +++ b/src/tools/msvc/Install.pm @@ -190,7 +190,7 @@ sub CopySolutionOutput my $conf = shift; my $target = shift; my $rem = - qr{Project\("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}"\) = "([^"]+)"}; + qr{Project\("\{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942\}"\) = "([^"]+)"}; my $sln = read_file("pgsql.sln") || croak "Could not open pgsql.sln\n"; -- 2.39.5