diff options
| author | Randy W. Sims <ml-perl@thepierianspring.org> | 2006-04-06 18:33:04 -0400 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2006-07-18 12:11:36 +0000 |
| commit | 3b91ae7afdaa3c016fc392dcbebaa10c1e7c4bb1 (patch) | |
| tree | 1d1c0a04d00817a0f853d70e96ee42885503c265 /lib | |
| parent | 7dda06b0ce85ef7e0a083140f0ca018d4ae2afdc (diff) | |
| download | perl-3b91ae7afdaa3c016fc392dcbebaa10c1e7c4bb1.tar.gz | |
Fix Borland problem with quoted pre-processor macros in response files
This should clear up the errors from Module/Build/t/ppm.t and
Module/Build/t/xs.t in the Borland smokes.
Subject: Re: Smoke [5.9.4] 27656 FAIL(F) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
From: "Randy W. Sims" <ml-perl@thepierianspring.org>
Message-ID: <4435CF60.1000707@thepierianspring.org>
See the thread here for details:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2006-04/msg00027.html
p4raw-id: //depot/perl@28597
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/CBuilder/Platform/Windows.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/ExtUtils/CBuilder/Platform/Windows.pm b/lib/ExtUtils/CBuilder/Platform/Windows.pm index 1ec89ee7a5..b889a5eead 100644 --- a/lib/ExtUtils/CBuilder/Platform/Windows.pm +++ b/lib/ExtUtils/CBuilder/Platform/Windows.pm @@ -9,7 +9,7 @@ use File::Spec; use ExtUtils::CBuilder::Base; use vars qw($VERSION @ISA); -$VERSION = '0.12'; +$VERSION = '0.12_01'; @ISA = qw(ExtUtils::CBuilder::Base); sub new { @@ -437,11 +437,16 @@ sub write_compiler_script { open( SCRIPT, ">$script" ) or die( "Could not create script '$script': $!" ); + # XXX Borland "response files" seem to be unable to accept macro + # definitions containing quoted strings. Escaping strings with + # backslash doesn't work, and any level of quotes are stripped. The + # result is is a floating point number in the source file where a + # string is expected. So we leave the macros on the command line. print SCRIPT join( "\n", map { ref $_ ? @{$_} : $_ } grep defined, delete( - @spec{ qw(includes cflags optimize defines perlinc) } ) + @spec{ qw(includes cflags optimize perlinc) } ) ); close SCRIPT; |