From 6c6a3d71fe0a2c2a7734b4c948d7ce5c6f5ec904 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 3 Sep 2009 13:04:15 +0000 Subject: prevent perl_checker to comply about this (urpmi does _NOT_ use MDK::Common) --- urpm/media.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/urpm/media.pm b/urpm/media.pm index 73c1fea2..435701da 100644 --- a/urpm/media.pm +++ b/urpm/media.pm @@ -959,10 +959,10 @@ sub add_distrib_media { $name ? "$media_name ($name$medium_index)" : $media_name, reduce_pathname($distribconf->getfullpath($media, 'path')), $with_synthesis, - !$use_copied_synthesis ? (media_info_dir => 'media_info') : (), + !$use_copied_synthesis ? (media_info_dir => 'media_info') : @{[]}, !$use_copied_synthesis && $options{probe_with} ? ($options{probe_with} => 1) : (), index_name => $name ? undef : 0, - $ignore ? (ignore => 1) : (), + $ignore ? (ignore => 1) : @{[]}, %options, # the following override %options $options{mirrorlist} ? ('with-dir' => $distribconf->getpath($media, 'path')) : (), @@ -1450,7 +1450,7 @@ sub _call_genhdlist2 { my $dir = file_from_local_medium($medium); system('genhdlist2', - $urpm->{debug} ? '--verbose' : (), '--no-hdlist', + $urpm->{debug} ? '--verbose' : @{[]}, '--no-hdlist', '--media_info-dir', "$urpm->{cachedir}/partial", $dir) == 0 or $urpm->{error}(N("genhdlist2 failed on %s", $dir)), return; -- cgit v1.2.1