From 7fcfafd0fa545ecaa437c679722823ccaf095788 Mon Sep 17 00:00:00 2001
From: iliajie <gpg@ilia.engineer>
Date: Sun, 27 Nov 2022 14:46:34 +0200
Subject: [PATCH] Add possibly missing `Digest::MD5` dependency

---
 makedebian.pl   | 2 +-
 makerpm.pl      | 2 +-
 xterm/index.cgi | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/makedebian.pl b/makedebian.pl
index bbd5728df..2d5c843fc 100755
--- a/makedebian.pl
+++ b/makedebian.pl
@@ -105,7 +105,7 @@ if ($product eq "webmin") {
 
 # Create the control file
 $size = int(`du -sk $tmp_dir`);
-@deps = ( "perl", "libnet-ssleay-perl", "openssl", "libauthen-pam-perl", "libpam-runtime", "libio-pty-perl", "unzip", "shared-mime-info", "tar", "libdigest-sha-perl" );
+@deps = ( "perl", "libnet-ssleay-perl", "openssl", "libauthen-pam-perl", "libpam-runtime", "libio-pty-perl", "unzip", "shared-mime-info", "tar", "libdigest-sha-perl", "libdigest-md5-perl" );
 $deps = join(", ", @deps);
 open(CONTROL, ">$control_file");
 print CONTROL <<EOF;
diff --git a/makerpm.pl b/makerpm.pl
index 0c7afd98c..e6b2e2c31 100755
--- a/makerpm.pl
+++ b/makerpm.pl
@@ -87,7 +87,7 @@ Version: $ver
 Release: $rel
 Provides: %{name}-%{version} perl(WebminCore)
 Requires(pre): /usr/bin/perl
-Requires: /bin/sh /usr/bin/perl /bin/rm perl(lib) perl(open) perl(Net::SSLeay) perl(Time::Local) perl(Encode::Detect) perl(Data::Dumper) perl(File::Path) perl(File::Basename) perl(Digest::SHA) openssl unzip tar
+Requires: /bin/sh /usr/bin/perl /bin/rm perl(lib) perl(open) perl(Net::SSLeay) perl(Time::Local) perl(Encode::Detect) perl(Data::Dumper) perl(File::Path) perl(File::Basename) perl(Digest::SHA) perl(Digest::MD5) openssl unzip tar
 AutoReq: 0
 License: BSD-3-clause
 Group: System/Tools
diff --git a/xterm/index.cgi b/xterm/index.cgi
index fa364d033..4f66581d1 100644
--- a/xterm/index.cgi
+++ b/xterm/index.cgi
@@ -8,7 +8,7 @@ my $wver = &get_webmin_version();
 $wver =~ s/\.//;
 
 # Check for needed modules
-my @modnames = ("Net::WebSocket::Server", "IO::Pty");
+my @modnames = ("IO::Pty", "Net::WebSocket::Server");
 foreach my $modname (@modnames) {
 	eval "use ${modname};";
 	if ($@) {