diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2017-09-07 20:24:35 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2017-09-07 21:08:09 +0200 |
| commit | 4920fbf71ee20c8cfd44fa6a73c06f2159932cff (patch) | |
| tree | e6a7c812e24701d4eb70567269d1b1bcff9f3427 /perl-install/install/steps_gtk.pm | |
| parent | 102339802fe667e53d517f522d24bb9e4c652019 (diff) | |
| download | drakx-4920fbf71ee20c8cfd44fa6a73c06f2159932cff.tar drakx-4920fbf71ee20c8cfd44fa6a73c06f2159932cff.tar.gz drakx-4920fbf71ee20c8cfd44fa6a73c06f2159932cff.tar.bz2 drakx-4920fbf71ee20c8cfd44fa6a73c06f2159932cff.tar.xz drakx-4920fbf71ee20c8cfd44fa6a73c06f2159932cff.zip | |
adapt to URPM-5.14 (using perl native ints)
See mga#21441
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 01f341c1f..213d1a96e 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -4,7 +4,6 @@ use diagnostics; use strict; use feature 'state'; use vars qw(@ISA); -use Math::Int64 ':native_if_available', 'int64'; @ISA = qw(install::steps_interactive interactive::gtk); @@ -628,7 +627,7 @@ sub installPackages { if ($type eq 'user' && $subtype eq 'install') { #- $amount and $total are used to return number of package and total size. $nb = $amount; - $total_size = $total; $current_total_size = int64(0); + $total_size = $total; $current_total_size = 0; $o->{install_start_time} = 0; mygtk3::gtkadd($pkg_log_widget, text => P("%d package", "%d packages", $nb, $nb)); $w->flush; |