diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-10-21 07:16:39 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-10-21 07:16:39 +0000 |
| commit | 539e523fd320e8141bd9d0f2171508720816c6a2 (patch) | |
| tree | 3e71ac7b1d0073da32f001b038d9efab3cd2d386 /perl-install | |
| parent | 42e5f09e742d3e9538df00d697194f9f9c52c86b (diff) | |
| download | drakx-539e523fd320e8141bd9d0f2171508720816c6a2.tar drakx-539e523fd320e8141bd9d0f2171508720816c6a2.tar.gz drakx-539e523fd320e8141bd9d0f2171508720816c6a2.tar.bz2 drakx-539e523fd320e8141bd9d0f2171508720816c6a2.tar.xz drakx-539e523fd320e8141bd9d0f2171508720816c6a2.zip | |
remove trailing slashes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 0b23d8a99..eb174f8cb 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -505,6 +505,7 @@ sub selectSupplMedia { and $global_ftp_prefix = [ $3, $4, $1, $2 ]; #- for getFile } else { $url = $o->ask_from_entry('', N("URL of the mirror?")) or return 'error'; + $url =~ s!/+\z!!; } useMedium($medium_name); require http if $suppl_method eq 'http'; |