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 | |
| 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')
| -rw-r--r-- | perl-install/install/pkgs.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 3 |
2 files changed, 4 insertions, 1 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; diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index bc9fae579..8cddb5bcf 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -3,6 +3,7 @@ package install::steps_interactive; use strict; use feature 'state'; +use Math::Int64 ':native_if_available', 'int64'; our @ISA = qw(install::steps); @@ -641,7 +642,7 @@ sub beforeInstallPackages { #------------------------------------------------------------------------------ sub installPackages { my ($o) = @_; - my ($current, $total) = (0, 0); + my ($current, $total) = (int64(0), 0); my ($_w, $wait_message) = $o->wait_message_with_progress_bar(N("Installing")); $wait_message->(N("Preparing installation"), 0, 100); #- beware, interactive::curses::wait_message_with_progress_bar need to create the Dialog::Progress here because in installCallback we are chrooted |