From 7c6ee5858f54858b7fdd83fc1f6eef5dee8f549b Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Fri, 2 Jul 2010 12:24:09 +0000
Subject: accept https URL in install::http

---
 perl-install/install/http.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/install/http.pm b/perl-install/install/http.pm
index caea04c3d..cf6c78f69 100644
--- a/perl-install/install/http.pm
+++ b/perl-install/install/http.pm
@@ -16,7 +16,7 @@ sub getFile {
 
 sub parse_http_url {
     my ($url) = @_;
-    $url =~ m,^(?:http|ftp)://(?:[^:/]+:[^:/]+\@)?([^/:@]+)(?::(\d+))?(/\S*)?$,;
+    $url =~ m,^(?:https?|ftp)://(?:[^:/]+:[^:/]+\@)?([^/:@]+)(?::(\d+))?(/\S*)?$,;
 }
 
 sub get_file_and_size_ {
-- 
cgit v1.2.1