summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@gmail.com>2016-12-12 21:13:39 +0000
committerPascal Terjan <pterjan@gmail.com>2016-12-12 21:18:17 +0000
commit2f09599376684cca6c8d8ef47a3d8e02a76455ef (patch)
tree5cbb26bc11b3505133e4d08967a619758e76846f /perl-install/install/pkgs.pm
parentb7fe35c410d7e6b5c33e01f71fba4a6ffa6c177e (diff)
downloaddrakx-2f09599376684cca6c8d8ef47a3d8e02a76455ef.tar
drakx-2f09599376684cca6c8d8ef47a3d8e02a76455ef.tar.gz
drakx-2f09599376684cca6c8d8ef47a3d8e02a76455ef.tar.bz2
drakx-2f09599376684cca6c8d8ef47a3d8e02a76455ef.tar.xz
drakx-2f09599376684cca6c8d8ef47a3d8e02a76455ef.zip
More int64 fixes
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index c6d146c78..fa9d8736e 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -46,7 +46,7 @@ sub invCorrectSize { ($_[0] - $C) / $B }
sub selectedSize {
my ($packages) = @_;
- my $size = 0;
+ my $size = int64(0);
my %skip;
#- take care of packages selected...
foreach (@{$packages->{depslist}}) {
@@ -785,11 +785,11 @@ sub install {
#- first stage to extract some important information
#- about the selected packages.
- my ($total, $nb);
+ my ($total, $nb) = (int64(0), 0);
foreach my $pkg (@$toInstall) {
$packages{$pkg->id} = $pkg;
$nb++;
- $total += to_int($pkg->size); #- do not correct for upgrade!
+ $total += $pkg->size; #- do not correct for upgrade!
}
log::l("install::pkgs::install $::prefix");