From 44d308e02a201611ee0cd4172ac0bc4d64a26058 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 13 Oct 2004 04:05:09 +0000 Subject: make perl_checker happy --- perl-install/install_steps_interactive.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 91a8ac894..a7268817d 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -422,7 +422,7 @@ sub askSupplMirror { return $o->ask_from_entry('', $message) || ''; } my $url = "ftp://$u->{mirror}$crypto::mirrors{$u->{mirror}}[1]"; - $url =~ s/\bmedia\/?$//; + $url =~ s!\bmedia/?$!!; log::l("mirror chosen [$url]"); return $url; } -- cgit v1.2.1