diff options
| author | Olivier Blin <oblin@mandriva.com> | 2009-10-27 10:29:20 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2009-10-27 10:29:20 +0000 |
| commit | 3738a03d0b17123578001082d47ccd8b749293f6 (patch) | |
| tree | 907440b031802333bf78ca32764d4fa4a9242b17 /perl-install/install/http.pm | |
| parent | e490a4f98da664b987d0b20e7eb387f49f08c092 (diff) | |
| download | drakx-3738a03d0b17123578001082d47ccd8b749293f6.tar drakx-3738a03d0b17123578001082d47ccd8b749293f6.tar.gz drakx-3738a03d0b17123578001082d47ccd8b749293f6.tar.bz2 drakx-3738a03d0b17123578001082d47ccd8b749293f6.tar.xz drakx-3738a03d0b17123578001082d47ccd8b749293f6.zip | |
fix ftp URL parsing when using user + pass (#49898)
Diffstat (limited to 'perl-install/install/http.pm')
| -rw-r--r-- | perl-install/install/http.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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_ { |