From 93eefdcec8aeef24e793653a4136bf4aeb2f1880 Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Tue, 13 Oct 2009 17:00:22 +0000 Subject: perl_checker fixes --- urpm/get_pkgs.pm | 2 +- urpm/main_loop.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'urpm') diff --git a/urpm/get_pkgs.pm b/urpm/get_pkgs.pm index 1da874ca..635df9c9 100644 --- a/urpm/get_pkgs.pm +++ b/urpm/get_pkgs.pm @@ -167,7 +167,7 @@ sub verify_partial_rpm_and_move { # get the filesize of packages to download from remote media. sub get_distant_media_filesize { - my ($urpm, $blists, $sources) = @_; + my (undef, $blists, $sources) = @_; my $filesize; #- get back all ftp and http accessible rpm files into the local cache diff --git a/urpm/main_loop.pm b/urpm/main_loop.pm index f6a5330f..dd519105 100644 --- a/urpm/main_loop.pm +++ b/urpm/main_loop.pm @@ -101,7 +101,7 @@ if ($urpm->{options}{'download-all'}) { my (undef, $available) = urpm::sys::df("$urpm->{cachedir}/rpms"); if (!$urpm->{options}{ignoresize}) { - my ($download_size) = urpm::get_pkgs::get_distant_media_filesize ($urpm, $blists, \%sources); + my ($download_size) = urpm::get_pkgs::get_distant_media_filesize($urpm, $blists, \%sources); if ($download_size >= $available*1000) { my $noexpr = N("Nn"); my $p = N("There is not enough space on your filesystem to download all packages (%s needed, %s available).\nAre you sure you want to continue?", formatXiB($download_size), formatXiB($available*1000)); -- cgit v1.2.1