Silence warning from modern perl about unescaped braces

This commit is contained in:
Andrew Dunstan 2016-04-08 12:50:30 -04:00
parent 386e3d7609
commit 76a1c97bf2
1 changed files with 1 additions and 1 deletions

View File

@ -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";