- change the delimiter as perl checker doesn't like '#' (perl_checker sucks)

1 files changed, 1 insertions, 1 deletions

diff --git a/mdkupdate b/mdkupdate
index 6998329d..e8f61e35 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -243,7 +243,7 @@ sub add_media {
     #sometimes server returns the full link http:// or ftp://
     ($is_x8664) = $da->{arch} =~ /(x86_64)/;
     $dist_name = $da->{name};
-    my $fullpath2mir = if_($mirror !~ m#^(?:http|ftp)://# , "ftp://") . $mirror . if_($is_x8664, "/$is_x8664") . if_($dist_name, "/$dist_name") . "/$r" . $path2new_arch;
+    my $fullpath2mir = if_($mirror !~ m!^(?:http|ftp)://! , "ftp://") . $mirror . if_($is_x8664, "/$is_x8664") . if_($dist_name, "/$dist_name") . "/$r" . $path2new_arch;
     eval {
 	#Remove historical mdkupdate source 
 	-f $media_varfile and system "/usr/sbin/urpmi.removemedia", "mdkupdate";