From 06beb705682254585eab4d48c6494c5ab9ae4510 Mon Sep 17 00:00:00 2001
From: iliajie <gpg@ilia.engineer>
Date: Tue, 22 Nov 2022 21:04:31 +0200
Subject: [PATCH] Fix modules test

---
 xterm/index.cgi | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/xterm/index.cgi b/xterm/index.cgi
index 4005bdf30..fa364d033 100644
--- a/xterm/index.cgi
+++ b/xterm/index.cgi
@@ -8,14 +8,16 @@ my $wver = &get_webmin_version();
 $wver =~ s/\.//;
 
 # Check for needed modules
-my $modname = "Net::WebSocket::Server";
-eval "use ${modname};";
-if ($@) {
-	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0);
-	print &text('index_cpan', "<tt>$modname</tt>",
-		    "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"<p>\n";
-	&ui_print_footer("/", $text{'index'});
-	return;
+my @modnames = ("Net::WebSocket::Server", "IO::Pty");
+foreach my $modname (@modnames) {
+	eval "use ${modname};";
+	if ($@) {
+		&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0);
+		print &text('index_cpan', "<tt>$modname</tt>",
+			    "../cpan/download.cgi?source=3&cpan=$modname&mode=2&return=/$module_name/&returndesc=".&urlize($module_info{'desc'})),"<p>\n";
+		&ui_print_footer("/", $text{'index'});
+		exit;
+		}
 	}
 
 # Build Xterm dependency links