From 21e40575e28ea6367f632436d0119c97a549c38d Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Fri, 21 Oct 2022 14:45:11 +0200 Subject: [PATCH] allow https mirrors Signed-off-by: Thomas Lamprecht --- DAB.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/DAB.pm b/DAB.pm index b85d0a6..33f8fa6 100644 --- a/DAB.pm +++ b/DAB.pm @@ -598,7 +598,7 @@ sub new { my $sources = undef; foreach my $s (@{$config->{source}}) { - if ($s =~ m@^\s*((http|ftp)://\S+)\s+(\S+)((\s+(\S+))+)$@) { + if ($s =~ m@^\s*((https?|ftp)://\S+)\s+(\S+)((\s+(\S+))+)$@) { my ($url, $su, $components) = ($1, $3, $4); $su =~ s/SUITE/$suite/; $components =~ s/^\s+//; @@ -620,7 +620,7 @@ sub new { } foreach my $m (@{$config->{mirror}}) { - if ($m =~ m@^\s*((http|ftp)://\S+)\s*=>\s*((http|ftp)://\S+)\s*$@) { + if ($m =~ m@^\s*((https?|ftp)://\S+)\s*=>\s*((https?|ftp)://\S+)\s*$@) { my ($ms, $md) = ($1, $3); my $found; foreach my $ss (@$sources) { -- 2.39.2