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/steps_interactive.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/steps_interactive.pm')
-rw-r--r-- | perl-install/install/steps_interactive.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |