From 3ea97b01a3e427b419278e40717577bf53131bcc Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 5 Dec 2011 00:02:21 +0000 Subject: perl_checker cleanups --- urpm/mirrors.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'urpm/mirrors.pm') diff --git a/urpm/mirrors.pm b/urpm/mirrors.pm index 221062b1..25b4e04d 100644 --- a/urpm/mirrors.pm +++ b/urpm/mirrors.pm @@ -140,7 +140,7 @@ sub black_list { sub _trigger_cache_update { my ($urpm, $cache, $o_is_upgrade) = @_; - my $reason = $o_is_upgrade?"reason=upgrade":"reason=update"; + my $reason = $o_is_upgrade ? "reason=upgrade" : "reason=update"; $urpm->{log}("URPMI_ADDMEDIA_REASON $reason"); $ENV{URPMI_ADDMEDIA_REASON} = $reason; %$cache = (); @@ -156,17 +156,17 @@ sub _cache__may_clean_if_outdated { if ($allow_cache_update) { if ($cache->{network_mtime} && _network_mtime() > $cache->{network_mtime}) { $urpm->{log}("not using cached mirror list $mirrorlist since network configuration changed"); - _trigger_cache_update ($urpm, $cache); + _trigger_cache_update($urpm, $cache); } elsif ($cache->{time} && time() > $cache->{time} + 24*60*60 * $urpm->{options}{'days-between-mirrorlist-update'}) { $urpm->{log}("not using outdated cached mirror list $mirrorlist"); - _trigger_cache_update ($urpm, $cache); + _trigger_cache_update($urpm, $cache); } elsif (!$cache->{product_id_mtime}) { $urpm->{log}("cached mirror list uses an old format, invalidating it"); - _trigger_cache_update ($urpm, $cache, 1); + _trigger_cache_update($urpm, $cache, 1); } elsif ($cache->{product_id_mtime} && _product_id_mtime() != $cache->{product_id_mtime}) { $urpm->{log}("not using cached mirror list $mirrorlist since product id file changed"); - _trigger_cache_update ($urpm, $cache, 1); + _trigger_cache_update($urpm, $cache, 1); } } $cache; @@ -304,7 +304,7 @@ sub _mandriva_mirrorlist { #- contact the following URL to retrieve the list of mirrors. #- http://wiki.mandriva.com/en/Product_id - my $product_type = lc($product_id->{type}); $product_id =~ s/\s//g; + my $_product_type = lc($product_id->{type}); $product_id =~ s/\s//g; my $arch = $o_arch || $product_id->{arch}; my @para = grep { $_ } $ENV{URPMI_ADDMEDIA_REASON}; -- cgit v1.2.1