summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-22 21:54:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-22 21:54:25 +0000
commit15356e0085ec180ec52a527e4e95bd3b922ec1e6 (patch)
tree58cd597cc56a638e0d39453bc583a31bda58e00e /perl-install
parente3d5724adf7926cbd7f8eae278606d05b109e809 (diff)
downloaddrakx-15356e0085ec180ec52a527e4e95bd3b922ec1e6.tar
drakx-15356e0085ec180ec52a527e4e95bd3b922ec1e6.tar.gz
drakx-15356e0085ec180ec52a527e4e95bd3b922ec1e6.tar.bz2
drakx-15356e0085ec180ec52a527e4e95bd3b922ec1e6.tar.xz
drakx-15356e0085ec180ec52a527e4e95bd3b922ec1e6.zip
help perl_checker
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index e3819721e..384f54d44 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -220,7 +220,7 @@ sub setupSCSI {
if ($o->{pcmcia} ||= !$::testing && c::pcmcia_probe()) {
my $w = $o->wait_message(N("PCMCIA"), N("Configuring PCMCIA cards..."));
my $results = modules::configure_pcmcia($o->{pcmcia});
- $w = undef;
+ undef $w;
$results and $o->ask_warn('', $results);
}
}
@@ -394,7 +394,7 @@ sub choosePackages {
my $min_size = pkgs::selectedSize($packages);
unless ($min_size < $availableC) {
- $w = undef;
+ undef $w;
$o->ask_warn('', N("Your system does not have enough space left for installation or upgrade (%d > %d)",
$min_size, $availableC));
install_steps::rebootNeeded($o);
@@ -407,7 +407,7 @@ sub choosePackages {
my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero.
log::l("max size (level $min_mark) is : " . formatXiB($max_size));
pkgs::restoreSelected($b);
- $w = undef;
+ undef $w;
chooseGroups:
$o->chooseGroups($packages, $compssUsers, $min_mark, \$individual, $max_size) if !$o->{isUpgrade} && !$::corporate && $o->{meta_class} ne 'desktop';
@@ -446,7 +446,7 @@ The format is the same as auto_install generated floppies."),
log::l("load package selection from floppy");
my $O = eval { install_any::loadO(undef, 'floppy') };
if ($@) {
- $w = undef; #- close wait message.
+ undef $w; #- close wait message.
$o->ask_okcancel('', N("Insert a floppy containing package selection"))
or return;
} else {