Fix gnutls (again) on Windows by using gnutls_transport_set_errno()

[user/henk/code/inspircd.git] / modulemanager

diff --git a/modulemanager b/modulemanager
index ff2bd3056137768cba3fa6cf69b10bb989c12f0c..7884654af1fd07a8a5d9b939c81f1a82bf8ad94d 100755 (executable)
--- a/modulemanager
+++ b/modulemanager
@@ -21,10 +21,22 @@
 
 use strict;
 use warnings FATAL => qw(all);
-use LWP::Simple;
 
 use make::configure;
 
+
+if (!module_installed("LWP::Simple"))
+{
+       die "Your system is missing the LWP::Simple Perl module!";
+}
+
+if (!module_installed("Crypt::SSLeay") && !module_installed("IO::Socket::SSL"))
+{
+       die "Your system is missing the Crypt::SSLeay or IO::Socket::SSL Perl modules!";
+}
+
+use LWP::Simple;
+
 our @modlist;
 
 my %installed;
@@ -250,7 +262,7 @@ sub resolve_deps {
        }
 }
 
-my $action = lc shift @ARGV;
+my $action = $#ARGV > 0 ? lc shift @ARGV : 'help';
 
 if ($action eq 'install') {
        for my $mod (@ARGV) {