summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm1
-rw-r--r--perl-install/install_steps_gtk.pm2
2 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 69a2b553a..8b540c9ba 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -645,7 +645,6 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
if (!$pid && defined $pid) { #- child
my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive
$wait_message->(N("Copying in progress"));
- my $du = 0;
#- from commands.pm. TODO: factorize, possibly in MDK::Common.
my $f; $f = sub {
my ($e) = @_;
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 6cdd6136e..13177303e 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -656,7 +656,7 @@ sub deselectFoundMedia {
$totalsize >= 0 and $totalsize += $mediumsize->{$_->[0]};
++$i;
}
- $totalsize or $totalsize = -1; #- don't check size, total medium size unknown
+ $totalsize ||= -1; #- don't check size, total medium size unknown
my @selection = (1) x @hdlist2;
my $copy_rpms_on_disk = 0;
my $ask_copy_rpms_on_disk = $o->{method} !~ /iso/i;