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 513cfb5796671dbd78536c5c852473ffb5b79ff5..dda662f3695bb107778724d595e3f2eb7aaa13cd 100644 (file)
--- 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;