Add multi-line flag to regex that needs it. Backpatch to 8.2. Fix from Andreas Zeugswetter

This commit is contained in:
Andrew Dunstan 2008-04-15 16:22:36 +00:00
parent 1e40da49ae
commit 2b8a795738

View File

@ -3,7 +3,7 @@ package Project;
# #
# Package that encapsulates a Visual C++ project file generation # Package that encapsulates a Visual C++ project file generation
# #
# $PostgreSQL: pgsql/src/tools/msvc/Project.pm,v 1.18 2008/02/19 16:15:14 mha Exp $ # $PostgreSQL: pgsql/src/tools/msvc/Project.pm,v 1.19 2008/04/15 16:22:36 adunstan Exp $
# #
use Carp; use Carp;
use strict; use strict;
@ -259,7 +259,8 @@ sub AddDir
} }
# Match rules that pull in source files from different directories # Match rules that pull in source files from different directories
my $replace_re = qr{^([^:\n\$]+\.c)\s*:\s*(?:%\s*: )?\$(\([^\)]+\))\/(.*)\/[^\/]+$}; # example: pg_crc.c: $(top_srcdir)/src/backend/utils/hash/pg_crc.c
my $replace_re = qr{^([^:\n\$]+\.c)\s*:\s*(?:%\s*: )?\$(\([^\)]+\))\/(.*)\/[^\/]+$}m;
while ($mf =~ m{$replace_re}m) while ($mf =~ m{$replace_re}m)
{ {
my $match = $1; my $match = $1;