From 1c44e4e5600ee7b981f6b5c8a0181e5323d50dbb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 6 Jan 2012 19:43:44 +0000 Subject: perl_checker cleanups --- urpm/get_pkgs.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'urpm/get_pkgs.pm') diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm index 8e564c78..e0c375b8 100644 --- a/urpm/get_pkgs.pm +++ b/urpm/get_pkgs.pm @@ -140,7 +140,7 @@ sub _create_old_list_from_blists { my $medium = $_; my ($blist) = grep { $_->{medium} == $medium } @$blists; - { map { $_ => urpm::blist_pkg_to_url($blist, $blist->{pkgs}{$_}) } keys %{$blist->{pkgs}} }; + { map { $_ => urpm::blist_pkg_to_url($blist, $blist->{pkgs}{$_}) } keys %{$blist->{pkgs}} } } @$media ]; } @@ -224,8 +224,8 @@ sub download_packages_of_distant_media { if (%{$blist_distant{pkgs}}) { my ($remote_sources, $remote_errors) = _download_packages_of_distant_media($urpm, \%blist_distant, %options); - put_in_hash (\%new_sources, $remote_sources); - put_in_hash (\%errors, $remote_errors); + put_in_hash(\%new_sources, $remote_sources); + put_in_hash(\%errors, $remote_errors); } } @@ -280,7 +280,7 @@ sub _download_packages_of_distant_media { $errors{$id} = [ $url, 'missing' ]; } } - (\%sources, \%errors) + (\%sources, \%errors); } 1; -- cgit v1.2.1