From 3738a03d0b17123578001082d47ccd8b749293f6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Tue, 27 Oct 2009 10:29:20 +0000
Subject: fix ftp URL parsing when using user + pass (#49898)

---
 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 1ef8755b3..3e879a874 100644
--- a/perl-install/install/http.pm
+++ b/perl-install/install/http.pm
@@ -15,7 +15,7 @@ sub getFile {
 
 sub parse_http_url {
     my ($url) = @_;
-    $url =~ m,^(?:http|ftp)://([^/:]+)(?::(\d+))?(/\S*)?$,;
+    $url =~ m,^(?:http|ftp)://(?:[^:/]+:[^:/]+\@)?([^/:@]+)(?::(\d+))?(/\S*)?$,;
 }
 
 sub get_file_and_size_ {
-- 
cgit v1.2.1