From 539e523fd320e8141bd9d0f2171508720816c6a2 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 21 Oct 2004 07:16:39 +0000
Subject: remove trailing slashes

---
 perl-install/install_any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install_any.pm')

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';
-- 
cgit v1.2.1