Generate an appropriate URL depending on whether Crypt::SSLeay is ins…

…talled or not
bingos · Aug 24, 2010 · e3fbe4b · e3fbe4b
1 parent 33ce7ed
commit e3fbe4b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/Task-CPANPLUS-Metabase/bin/metabase_cpanp b/Task-CPANPLUS-Metabase/bin/metabase_cpanp
@@ -14,8 +14,16 @@ use File::Spec;
 use Term::UI;
 use Term::ReadLine;
 use CPANPLUS::Configure;
+use Module::Load::Conditional qw[check_install];
 
-my $url = 'https://metabase.cpantesters.org/api/v1/';
+my $url = 'metabase.cpantesters.org/api/v1/';
+
+if ( check_install( module => 'Crypt::SSLeay' ) ) {
+  $url = 'https://' . $url;
+}
+else {
+  $url = 'http://' . $url;
+}
 
 my (%profile, $help, $output, $full_name, $email_address, $password);
 

diff --git a/Task-CPANPLUS-Metabase/dist.ini b/Task-CPANPLUS-Metabase/dist.ini
@@ -1,5 +1,5 @@
 name = Task-CPANPLUS-Metabase
-version = 0.06
+version = 0.08
 author = Chris Williams <chris@bingosnet.co.uk>
 license = Perl_5
 copyright_holder = Chris Williams
@@ -9,6 +9,7 @@ copyright_holder = Chris Williams
 [Prereq]
 CPANPLUS                            = 0.9007
 Metabase::Fact                      = 0.017
+Module::Load::Conditional           = 0
 Term::UI                            = 0
 Test::Reporter                      = 1.57
 Test::Reporter::Transport::Metabase = 1.999008