postgres.git / summary / log / commit / refs

commit    af1f1825924b5f983bfa6a2cd0df41d962fb9032
Author:   Tom Lane <tgl@sss.pgh.pa.us>
Date:     Wed Aug 02 19:07:20 2017 +0000

    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 2d037ddf8ab..4e75ead060a 100644
--- 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";
 


[parent: ca99f5b5fd90]