Author: amassari
Date: Mon Oct 16 00:41:52 2006
New Revision: 464407
URL: http://svn.apache.org/viewvc?view=rev&rev=464407
Log:
Fixed regex to pick up the flags and compiler used to build Xerces
Modified:
xerces/c/trunk/swig/perl/Makefile.PL
Modified: xerces/c/trunk/swig/perl/Makefile.PL
URL:
http://svn.apache.org/viewvc/xerces/c/trunk/swig/perl/Makefile.PL?view=diff&rev=464407&r1=464406&r2=464407
==============================================================================
--- xerces/c/trunk/swig/perl/Makefile.PL (original)
+++ xerces/c/trunk/swig/perl/Makefile.PL Mon Oct 16 00:41:52 2006
@@ -110,7 +110,7 @@
my $sep;
while (<CONF>) {
if (/[EMAIL PROTECTED]@/) {
- my ($sep, $flags) = /^s(.)[EMAIL PROTECTED]@\1([^\1]*)\1;/;
+ my ($sep, $flags) = /^s(.)[EMAIL PROTECTED]@\1\|[^\|]*\|([^\1]*)\1/;
my @flags = split /\s+/, $flags;
my @new_flags;
foreach my $flag (@flags) {
@@ -127,11 +127,11 @@
}
($CXXFLAGS) = join(' ',@new_flags);
} elsif (/[EMAIL PROTECTED]@/) {
- ($sep, $LDFLAGS) = /^s(.)[EMAIL PROTECTED]@\1([^\1]*)\1;/;
+ ($sep, $LDFLAGS) = /^s(.)[EMAIL PROTECTED]@\1\|[^\|]*\|([^\1]*)\1/;
@LDFLAGS = ('LDFLAGS' => $LDFLAGS)
if $LDFLAGS !~ /^\s*$/;
} elsif (/[EMAIL PROTECTED]@/) {
- ($sep, $CXX) = /^s(.)[EMAIL PROTECTED]@\1([^\1]*)\1;/
+ ($sep, $CXX) = /^s(.)[EMAIL PROTECTED]@\1\|[^\|]*\|([^\1]*)\1/
}
}
print STDERR <<EOM;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
