Silence warning from modern perl about unescaped braces

diff --git a/src/tools/msvc/Install.pm b/src/tools/msvc/Install.pm
index f2cedae9dd8b04e87515c7c2ed34820f6333c70b..3c36c5df13eface2b8ceb52524782a95c3db06d3 100644 (file)
--- a/src/tools/msvc/Install.pm
+++ b/src/tools/msvc/Install.pm
@@ -217,7 +217,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";