develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
rurban
Date:
January 28, 2009 11:29
Subject:
[svn:parrot] r36107 - trunk/config/auto
Message ID:
20090128192856.C2631CB9AE@x12.develooper.com
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);



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About