[perl #37197] [PATCH] optimize with MinGW

[François]

# New Ticket Created by  François PERRAD 
# Please include the string:  [perl #37197]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=37197 >



This patch allows Configure.pl --optimize and Configure.pl --optimize=flags 
with MinGW.
(And typo in CREDITS)

François Perrad.
svn diff
Index: CREDITS
===================================================================
--- CREDITS     (révision 9203)
+++ CREDITS     (copie de travail)
@@ -129,8 +129,8 @@
 N: Felix Gallo
 D: delegate.pmc patch
 
-N: Francois Perrad
-D: build fixes for Cygwin and MinGW
+N: François Perrad
+D: build fixes for MinGW
 
 N: Garrett Rooney
 D: Fix typo in PARROT_BIGENDIAN case
Index: config/init/data.pl
===================================================================
--- config/init/data.pl (révision 9203)
+++ config/init/data.pl (copie de travail)
@@ -40,7 +40,7 @@
     # A plain --optimize means use perl5's $Config{optimize}.  If an argument 
is
     # given, however, use that instead.  This logic really belongs in the 
optimize
     # unit.
-    optimize      => $optimize ? ($optimize eq "1" ? $Config{optimize} : 
$optimize) : '',
+    optimize      => $optimize ? ($optimize eq "1" ? ($Config{optimize} || 
"1") : $optimize) : '',
     verbose       => $verbose,
 
     build_dir     => $FindBin::Bin,
Index: config/init/hints/mswin32.pl
===================================================================
--- config/init/hints/mswin32.pl        (révision 9203)
+++ config/init/hints/mswin32.pl        (copie de travail)
@@ -152,7 +152,7 @@
        elsif( $is_mingw ) {
                my $make=Configure::Data->get(qw(make));
                if ($make =~ /nmake/i) {
-                       # ActiveState Perl
+                       # ActiveState Perl or PXPerl
                        Configure::Data->set(
                                'a' => '.a',
                                'ar' => 'ar',
@@ -171,9 +171,9 @@
                                'o' => '.o',
                                'slash' => '\\',
                        );
-                       if (Configure::Data->get(qw(optimize))) {
+                       if (Configure::Data->get(qw(optimize)) eq "1") {
                                Configure::Data->set(
-                                       optimize => '-s -O2'
+                                       optimize => '-O2'
                                );
                        }
                } elsif ($make =~ /dmake/i) {