Attachment 8748 Details for Bug 19895 – more int64 init

[patch] more int64 init

more-int64-init.patch (text/plain), 1.49 KB, created by Thierry Vignaud on 2016-12-10 09:47:48 CET

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2016-12-10 09:47:48 CET

Size: 1.49 KB

patch

obsolete

>diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
>index 75c15b5..c6d146c 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 bc9fae5..8cddb5b 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

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 75c15b5..c6d146c 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 bc9fae5..8cddb5b 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

Actions: View | Diff

Attachments on bug 19895: 8727 | 8733 | 8748 | 8749 | 8750 | 8751