From 84ed108af4500508b3007b51cd31b520e2c39545 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Sun, 20 Nov 2022 16:13:04 +0000
Subject: Allow https when user provides an explicit mirror URL.

---
 perl-install/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a9f50af4f..d09bc323b 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1874,10 +1874,10 @@ sub ask_url {
     $in->ask_from_({ messages => N("URL of the mirror?"), focus_first => 1 }, [
 	{ val => \$url,
 	  validate => sub {
-	      if ($url =~ m!^(http|ftp)://!) {
+	      if ($url =~ m!^(https?|ftp)://!) {
 		  1;
 	      } else {
-		  $in->ask_warn('', N("URL must start with ftp:// or http://"));
+		  $in->ask_warn('', N("URL must start with ftp:// or http:// or https://"));
 		  0;
 	      }
 	  } } ]) && $url;
-- 
cgit v1.2.1