ouch/inspircd
2
0
Fork 0
mirror of https://github.com/inspircd/inspircd.git synced 2025-03-09 10:39:02 -04:00
Code Issues Packages Projects Releases Wiki Activity

Use the standard Perl prelude in ModuleManager.

Browse Source
This commit is contained in:
Peter Powell 2017-03-24 22:00:00 +00:00
parent 5c88e3df25
commit d43056bf6a
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
modulemanager
View File

@ -20,23 +20,25 @@
# #
use strict;
use warnings FATAL => qw(all);
use make::common;
BEGIN { BEGIN {
require 5.10.0;
unless (eval "use LWP::Simple; 1") { unless (eval "use LWP::Simple; 1") {
die "Your system is missing the LWP::Simple Perl module!"; die "Your system is missing the LWP::Simple Perl module!";
} }
unless (eval "use Crypt::SSLeay; 1" || eval "use IO::Socket::SSL; 1") { unless (eval "use Crypt::SSLeay; 1" || eval "use IO::Socket::SSL; 1") {
die "Your system is missing the Crypt::SSLeay or IO::Socket::SSL Perl modules!"; die "Your system is missing the Crypt::SSLeay or IO::Socket::SSL Perl modules!";
} }
} }
use File::Basename; use feature ':5.10';
use LWP::Simple; use strict;
use warnings FATAL => qw(all);
use File::Basename qw(basename);
use FindBin qw($RealDir);
use lib $RealDir;
use make::common;
my %installed; my %installed;
# $installed{name} = $version # $installed{name} = $version