[svn:parrot] r36107 - trunk/config/auto

[rurban]

Author: rurban
Date: Wed Jan 28 11:28:56 2009
New Revision: 36107

Modified:
   trunk/config/auto/msvc.pm

Log:
Fix TT #248 skip auto::msvc if auto::gcc was true

Modified: trunk/config/auto/msvc.pm
==============================================================================
--- trunk/config/auto/msvc.pm   (original)
+++ trunk/config/auto/msvc.pm   Wed Jan 28 11:28:56 2009
@@ -32,6 +32,13 @@
 sub runstep {
     my ( $self, $conf ) = ( shift, shift );
 
+    if ($conf->data->get('gccversion')) {
+        my $verbose = $conf->options->get('verbose');
+        print " (skipped) " if $verbose;
+        $self->set_result('skipped');
+        $conf->data->set( msvcversion => undef );
+        return 1;
+    }
     my $msvcref = _probe_for_msvc($conf);
 
     $self->_evaluate_msvc($conf, $msvcref);