[perl #19470] [PATCH] --cc=FOO fails for Win32

[via RT]

# New Ticket Created by  Bruce Gray 
# Please include the string:  [perl #19470]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=19470 >


In hints/mswin32.pl, there is code in place to customize the 
build environment based on the value of $cc. However, $cc is 
only populated by the 'cc' from the local 'perl -V'; the 
command-line flag '-cc=FOO' is not used here. This patch 
corrects that problem, as well as missing 'link', 'ar', and 'slash' 
values for MinGW.

Tested under MinGW 2.0.0-3 (current) using these commands:
        perl Configure.pl --debugging --cc=gcc
        mingw32-make
        mingw32-make test
Many warnings remain, but only one test fails (sprintf).
With this patch, Parrot now supports MinGW out-of-the-box!

-- 
Hope this helps,
Bruce Gray



-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/46301/36291/613a29/mswin32_pl_MinGW.patch


Index: config/init/hints.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints.pl,v
retrieving revision 1.3
diff -u -r1.3 hints.pl
--- config/init/hints.pl        9 Dec 2002 04:02:09 -0000       1.3
+++ config/init/hints.pl        27 Dec 2002 01:39:50 -0000
@@ -6,7 +6,7 @@
 
 $description="Loading platform and local hints files...";
 
-@args=();
+@args = qw( cc );
 
 sub runstep {
   my $hints = "config/init/hints/" . lc($^O) . ".pl";
Index: config/init/hints/mswin32.pl
===================================================================
RCS file: /cvs/public/parrot/config/init/hints/mswin32.pl,v
retrieving revision 1.6
diff -u -r1.6 mswin32.pl
--- config/init/hints/mswin32.pl        11 Oct 2002 01:46:52 -0000      1.6
+++ config/init/hints/mswin32.pl        27 Dec 2002 01:39:50 -0000
@@ -1,9 +1,18 @@
 {
+       my %args;
+       @args{@args}=@_;
+
        my($cc, $ccflags, $libs)=Configure::Data->get(qw(cc ccflags libs));
+
+       # Later in the Parrot::Configure::RunSteps->runsteps process,
+       # inter/progs.pl will merge the command-line overrides with the defaults.
+       # We do one bit of its work early here, because we need the result now.
+       $cc = $args{cc} if defined $args{cc};
+
        my $is_msvc  = grep { $cc eq $_ } ( qw(cl cl.exe) );
        my $is_mingw = grep { $cc eq $_ } ( qw(gcc gcc.exe) );
        my $is_bcc   = grep { $cc eq $_ } ( qw(bcc32 bcc32.exe) );
-       
+
        Configure::Data->set(
                rm_f  => '$(PERL) -MExtUtils::Command -e rm_f',
                rm_rf => '$(PERL) -MExtUtils::Command -e rm_rf',
@@ -66,8 +75,10 @@
        elsif( $is_mingw ) {
                $libs='' if $libs =~ /\.lib\s/i;
                Configure::Data->set(
-                       ld => 'gcc',
-                       libs => $libs
+                       link      => 'gcc',
+                       libs      => $libs,
+                       slash     => '\\',
+                       ar        => 'ar',
                );
        }
 }