diff options
| -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 |