diff options
| author | Anne Nicolas <ennael@mageia.org> | 2016-12-11 12:13:05 +0100 |
|---|---|---|
| committer | Anne Nicolas <ennael@mageia.org> | 2016-12-11 12:13:05 +0100 |
| commit | 08d23a39f5ff5bdfe736190b1088dc534e5b1bb9 (patch) | |
| tree | 616c60ac46fd91ffe9e519719ebf99f5f23f223e /perl-install/install/pkgs.pm | |
| parent | e5bc685d48c14a2bf58b84285b56cefcb888d78a (diff) | |
| download | drakx-08d23a39f5ff5bdfe736190b1088dc534e5b1bb9.tar drakx-08d23a39f5ff5bdfe736190b1088dc534e5b1bb9.tar.gz drakx-08d23a39f5ff5bdfe736190b1088dc534e5b1bb9.tar.bz2 drakx-08d23a39f5ff5bdfe736190b1088dc534e5b1bb9.tar.xz drakx-08d23a39f5ff5bdfe736190b1088dc534e5b1bb9.zip | |
more int64 init (Thierry Viganud) (mga#19895)
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 75c15b525..c6d146c78 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -2,6 +2,7 @@ package install::pkgs; use strict; use feature 'state'; +use Math::Int64 ':native_if_available', 'int64'; BEGIN { # needed before "use URPM" @@ -726,6 +727,7 @@ sub selectPackagesAlreadyInstalled { my %sizes; $packages->{rpmdb}->traverse(sub { my ($p) = @_; + $sizes{$p->name} ||= int64(0); $sizes{$p->name} += $p->size; }); $packages->{sizes} = \%sizes; |