From b1cb301e47219bbc24133b9aa0d4d4bb19c9642f Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 3 Mar 2005 16:03:16 +0000 Subject: perl_checker fixes --- perl-install/install_any.pm | 1 - perl-install/install_steps_gtk.pm | 2 +- 2 files changed, 1 insertion(+), 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; -- cgit v1.2.1