diff options
| author | Pascal Terjan <pterjan@gmail.com> | 2016-12-12 21:13:39 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@gmail.com> | 2016-12-12 21:18:17 +0000 |
| commit | 2f09599376684cca6c8d8ef47a3d8e02a76455ef (patch) | |
| tree | 5cbb26bc11b3505133e4d08967a619758e76846f /perl-install | |
| parent | b7fe35c410d7e6b5c33e01f71fba4a6ffa6c177e (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/install/pkgs.pm | 6 |
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"); |