[PATCH] MinGW fix

[Mattia Barbon]

* hints/mswin32.pl
  - move $c{platform} = win32 outside $is_msvc

* Configure.pl
  - fixed jitarch/os detection for Win32
    ( was using cpu = MSWin32, os = x86 )

Regards
Mattia


Index: Configure.pl
===================================================================
RCS file: /home/perlcvs/parrot/Configure.pl,v
retrieving revision 1.91
diff -u -2 -r1.91 Configure.pl
--- Configure.pl        5 Feb 2002 13:15:38 -0000       1.91
+++ Configure.pl        5 Feb 2002 21:27:34 -0000
@@ -147,4 +147,7 @@
 $archname                 =  $Config{archname};
 ($cpuarch, $osname)       =  split('-', $archname);
+if( "$cpuarch$osname" =~ m/mswin32x86/i ) {
+    ( $cpuarch, $osname ) = ( 'i386', 'win32' );
+}
 if (!defined $osname) {
     ($osname, $cpuarch) = ($cpuarch, "");
Index: hints/mswin32.pl
===================================================================
RCS file: /home/perlcvs/parrot/hints/mswin32.pl,v
retrieving revision 1.9
diff -u -2 -r1.9 mswin32.pl
--- hints/mswin32.pl    31 Jan 2002 21:46:43 -0000      1.9
+++ hints/mswin32.pl    5 Feb 2002 21:27:34 -0000
@@ -5,4 +5,5 @@
        $c{rm_f} = '$(PERL) -MExtUtils::Command -e rm_f';
        $c{rm_rf} = '$(PERL) -MExtUtils::Command -e rm_rf';
+        $c{platform} = 'win32';
 
        if( $is_msvc ) {
@@ -17,5 +18,4 @@
                $c{ld_shard} = '-dll';
                $c{ld_out}   = '-out:';
-               $c{platform} = 'win32';
                $c{cp} = 'copy';
                $c{slash} = '\\';