From bfaa5ba983f9b5168de65a0e7d80ab1a5edefaec Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Fri, 25 May 2018 16:11:03 -0700
Subject: [PATCH] More gracefully handle missing MD5 module

---
 acl/acl-lib.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/acl/acl-lib.pl b/acl/acl-lib.pl
index d2a05fa90..a42f8a574 100755
--- a/acl/acl-lib.pl
+++ b/acl/acl-lib.pl
@@ -1801,6 +1801,7 @@ sub hash_session_id
 {
 my ($sid) = @_;
 my $use_md5 = &md5_perl_module();
+$use_md5 || &error("No Perl MD5 hashing module found!");
 if (!$hash_session_id_cache{$sid}) {
         if ($use_md5) {
                 # Take MD5 hash
@@ -1823,6 +1824,7 @@ sub hash_md5_session
 {
 my ($passwd) = @_;
 my $use_md5 = &md5_perl_module();
+$use_md5 || &error("No Perl MD5 hashing module found!");
 
 # Add the password
 my $ctx = eval "new $use_md5";