diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-03 16:03:16 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-03 16:03:16 +0000 |
| commit | b1cb301e47219bbc24133b9aa0d4d4bb19c9642f (patch) | |
| tree | 3e8e2e5c93e900f92a3859f38ecdf3521210720c /perl-install | |
| parent | dcaffff668e66be0958f276f2b3f141c503caa9a (diff) | |
| download | drakx-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar drakx-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar.gz drakx-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar.bz2 drakx-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar.xz drakx-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.zip | |
perl_checker fixes
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; |