summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-10-21 07:16:39 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-10-21 07:16:39 +0000
commit539e523fd320e8141bd9d0f2171508720816c6a2 (patch)
tree3e71ac7b1d0073da32f001b038d9efab3cd2d386 /perl-install
parent42e5f09e742d3e9538df00d697194f9f9c52c86b (diff)
downloaddrakx-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.pm1
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';