summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-03 16:03:16 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-03 16:03:16 +0000
commitb1cb301e47219bbc24133b9aa0d4d4bb19c9642f (patch)
tree3e8e2e5c93e900f92a3859f38ecdf3521210720c /perl-install
parentdcaffff668e66be0958f276f2b3f141c503caa9a (diff)
downloaddrakx-backup-do-not-use-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar
drakx-backup-do-not-use-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar.gz
drakx-backup-do-not-use-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar.bz2
drakx-backup-do-not-use-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.tar.xz
drakx-backup-do-not-use-b1cb301e47219bbc24133b9aa0d4d4bb19c9642f.zip
perl_checker fixes
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;