From 2f09599376684cca6c8d8ef47a3d8e02a76455ef Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@gmail.com>
Date: Mon, 12 Dec 2016 21:13:39 +0000
Subject: More int64 fixes

---
 perl-install/install/pkgs.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index c6d146c78..fa9d8736e 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -46,7 +46,7 @@ sub invCorrectSize { ($_[0] - $C) / $B }
 
 sub selectedSize {
     my ($packages) = @_;
-    my $size = 0;
+    my $size = int64(0);
     my %skip;
     #- take care of packages selected...
     foreach (@{$packages->{depslist}}) {
@@ -785,11 +785,11 @@ sub install {
 
     #- first stage to extract some important information
     #- about the selected packages.
-    my ($total, $nb);
+    my ($total, $nb) = (int64(0), 0);
     foreach my $pkg (@$toInstall) {
 	$packages{$pkg->id} = $pkg;
 	$nb++;
-	$total += to_int($pkg->size); #- do not correct for upgrade!
+	$total += $pkg->size; #- do not correct for upgrade!
     }
 
     log::l("install::pkgs::install $::prefix");
-- 
cgit v1.2.1