From d43056bf6abc2e63ecf798085bf78b2aabd61618 Mon Sep 17 00:00:00 2001
From: Peter Powell <petpow@saberuk.com>
Date: Fri, 24 Mar 2017 22:00:00 +0000
Subject: Use the standard Perl prelude in ModuleManager.

---
 modulemanager | 18 ++++++++++--------
 1 file 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
-- 
cgit v1.2.3