diff options
author | Peter Powell <petpow@saberuk.com> | 2017-03-24 22:00:00 +0000 |
---|---|---|
committer | Peter Powell <petpow@saberuk.com> | 2017-03-25 00:54:25 +0000 |
commit | d43056bf6abc2e63ecf798085bf78b2aabd61618 (patch) | |
tree | c2d14099ebf8fbe28eb34d5339bd9f0266a3e79f /modulemanager | |
parent | 5c88e3df25dde6aa6ff849263a79ffda6144cf4d (diff) |
Use the standard Perl prelude in ModuleManager.
Diffstat (limited to 'modulemanager')
-rwxr-xr-x | modulemanager | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/modulemanager b/modulemanager index 9f9c03344..1ac0c936a 100755 --- a/modulemanager +++ b/modulemanager @@ -20,23 +20,25 @@ # -use strict; -use warnings FATAL => qw(all); - -use make::common; - BEGIN { + require 5.10.0; unless (eval "use LWP::Simple; 1") { die "Your system is missing the LWP::Simple Perl module!"; } 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!"; } - } -use File::Basename; -use LWP::Simple; +use feature ':5.10'; +use strict; +use warnings FATAL => qw(all); + +use File::Basename qw(basename); +use FindBin qw($RealDir); + +use lib $RealDir; +use make::common; my %installed; # $installed{name} = $version |