From f1978ce50a80a129b0a097f9223e24a5b7e32377 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sat, 6 Jul 2013 02:44:32 +0200
Subject: [PATCH] Add --gui argument to Build.PL

---
 Build.PL | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Build.PL b/Build.PL
index 128641dfc..45716932c 100644
--- a/Build.PL
+++ b/Build.PL
@@ -28,6 +28,15 @@ my %recommends = qw(
     Growl::GNTP                     0.15
     XML::SAX::ExpatXS               0
 );
+if ($ARGV[0] eq '--gui') {
+    %prereqs = (%prereqs, qw(
+    Wx                              0.9901
+    ));
+    %recommends = (%recommends, qw(
+    Wx::GLCanvas                    0
+    OpenGL                          0
+    ));
+}
 
 # removed:
 # Wx 0.9901
@@ -80,6 +89,9 @@ If it is installed in a non-standard location you can do:
 EOF
         if !$cpanm;
     
+    # make sure our cpanm is updated (old ones don't support the ~ syntax)
+    system $cpanm, 'App::cpanminus';
+    
     my %modules = (%prereqs, %recommends);
     foreach my $module (sort keys %modules) {
         my $version = $modules{$module};