diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 |
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; |