From 44d308e02a201611ee0cd4172ac0bc4d64a26058 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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