Silence warning from modern perl about unescaped braces

76a1c97b · Andrew Dunstan · 386e3d76 · 76a1c97b
Commit 76a1c97b authored Apr 08, 2016 by Andrew Dunstan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/tools/msvc/Install.pm src/tools/msvc/Install.pm +1 -1

No files found.
--- 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";