perl_checker fix

1 files changed, 1 insertions, 1 deletions

diff --git a/urpmi.addmedia b/urpmi.addmedia
index 3eb0dc7c..caecc345 100755
--- a/urpmi.addmedia
+++ b/urpmi.addmedia
@@ -154,7 +154,7 @@ and [options] are from
 	    $options{distrib} eq 'updates' && $options{version} eq 'cooker' and
 	      die N("cannot add updates of a cooker distribution\n");
 	    #- get mirrors list file in urpmi cache.
-	    my ($basename) = $options{from} =~ /^.*\/([^\/]+)\/*$/;
+	    my ($basename) = $options{from} =~ m|^.*/([^/]+)/*$|;
 	    unlink "$urpm->{cachedir}/partial/$basename";
 	    eval {
 		$urpm->{log}(N("retrieving mirrors at %s ...", $options{from}));