diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-17 02:54:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-17 02:54:40 +0000 |
| commit | 2357094a849f8aced3627c30fdea64d34cb3f057 (patch) | |
| tree | 9a466c1a429c5f6e0656a8ddae6ab6b5d354ec70 | |
| parent | 9e0a01e8126a895fdc91433494b97d6add4f2b8c (diff) | |
| download | drakx-2357094a849f8aced3627c30fdea64d34cb3f057.tar drakx-2357094a849f8aced3627c30fdea64d34cb3f057.tar.gz drakx-2357094a849f8aced3627c30fdea64d34cb3f057.tar.bz2 drakx-2357094a849f8aced3627c30fdea64d34cb3f057.tar.xz drakx-2357094a849f8aced3627c30fdea64d34cb3f057.zip | |
perl_checker fix
| -rw-r--r-- | perl-install/install_any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index b6b522bc6..3b3538fc0 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -450,8 +450,8 @@ sub selectSupplMedia { log::l("read suppl hdlist (via $suppl_method)"); $supplmedium->{prefix} = $url; #- for install_urpmi if ($suppl_method eq 'ftp') { - $url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)!; - $supplmedium->{ftp_prefix} = [ $3, $4, $1, $2 ]; #- for getFile + $url =~ m!^ftp://(?:(.*?)(?::(.*?))?@)?([^/]+)/(.*)! + and $supplmedium->{ftp_prefix} = [ $3, $4, $1, $2 ]; #- for getFile } $supplmedium->{selected} = 1; $supplmedium->{method} = $suppl_method; |