From: Andrew Dunstan <andrew@dunslane.net>
Date: Sun, 26 Apr 2015 01:28:02 +0000 (-0400)
Subject: Try to unbreak some MSVC builds following forward slash change.
X-Git-Url: http://waps.l3s.uni-hannover.de/gitweb/?a=commitdiff_plain;h=04f1542d390fdd95dadc66e86c623ecdc1bca401;p=users%2Fbernd%2Fpostgres.git

Try to unbreak some MSVC builds following forward slash change.

Michael Paquier.
---

diff --git a/src/tools/msvc/VCBuildProject.pm b/src/tools/msvc/VCBuildProject.pm
index 513cfb5796..dda662f369 100644
--- a/src/tools/msvc/VCBuildProject.pm
+++ b/src/tools/msvc/VCBuildProject.pm
@@ -71,7 +71,7 @@ EOF
 	foreach my $fileNameWithPath (sort keys %{ $self->{files} })
 	{
 		confess "Bad format filename '$fileNameWithPath'\n"
-		  unless ($fileNameWithPath =~ /^(.*)\\([^\\]+)\.(c|cpp|y|l|rc)$/);
+		  unless ($fileNameWithPath =~ m!^(.*)/([^/]+)\.(c|cpp|y|l|rc)$!);
 		my $dir  = $1;
 		my $file = $2;