Only install ParseXS and Slic3r-XS when --gui is not supplied

1 files changed, 20 insertions, 16 deletions

diff --git a/Build.PL b/Build.PL
index 13cece256..5b87d2999 100644
--- a/Build.PL
+++ b/Build.PL
@@ -27,7 +27,9 @@ my %recommends = qw(
     Growl::GNTP                     0.15
     XML::SAX::ExpatXS               0
 );
-if (defined $ARGV[0] && $ARGV[0] eq '--gui') {
+
+my $gui = defined $ARGV[0] && $ARGV[0] eq '--gui';
+if ($gui) {
     %prereqs = qw(
     Wx                              0.9918
     );
@@ -106,22 +108,24 @@ EOF
         }
     }
     
-    # temporarily require this dev version until this upstream bug
-    # is resolved: https://rt.cpan.org/Ticket/Display.html?id=86367
-    system $cpanm, 'SMUELLER/ExtUtils-ParseXS-3.18_04.tar.gz';
-    
-    # clean xs directory before reinstalling, to make sure Build is called
-    # with current perl binary
-    if (-e './xs/Build') {
-        if ($^O eq 'MSWin32') {
-            system 'cd', 'xs';
-            system 'Build', 'distclean';
-            system 'cd', '..';
-        } else {
-            system './xs/Build', 'distclean';
+    if (!$gui) {
+        # temporarily require this dev version until this upstream bug
+        # is resolved: https://rt.cpan.org/Ticket/Display.html?id=86367
+        system $cpanm, 'SMUELLER/ExtUtils-ParseXS-3.18_04.tar.gz';
+        
+        # clean xs directory before reinstalling, to make sure Build is called
+        # with current perl binary
+        if (-e './xs/Build') {
+            if ($^O eq 'MSWin32') {
+                system 'cd', 'xs';
+                system 'Build', 'distclean';
+                system 'cd', '..';
+            } else {
+                system './xs/Build', 'distclean';
+            }
         }
+        system $cpanm, '--reinstall', './xs';
     }
-    system $cpanm, '--reinstall', './xs';
 }
 
 if ($missing_prereqs) {
@@ -130,7 +134,7 @@ if ($missing_prereqs) {
     if (eval "use App::Prove; 1") {
         App::Prove->new->run;
     }
-    if (!defined $ARGV[0] || $ARGV[0] ne '--gui') {
+    if (!$gui) {
         print "If you also want to use the GUI you can now run `perl Build.PL --gui` to install the required modules.\n";
     }
 }