From 4920fbf71ee20c8cfd44fa6a73c06f2159932cff Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 7 Sep 2017 20:24:35 +0200
Subject: adapt to URPM-5.14 (using perl native ints)

See mga#21441
---
 perl-install/install/steps_gtk.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/install/steps_gtk.pm')

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;
-- 
cgit v1.2.1