diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-22 21:54:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-22 21:54:25 +0000 |
| commit | 15356e0085ec180ec52a527e4e95bd3b922ec1e6 (patch) | |
| tree | 58cd597cc56a638e0d39453bc583a31bda58e00e /perl-install | |
| parent | e3d5724adf7926cbd7f8eae278606d05b109e809 (diff) | |
| download | drakx-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.pm | 8 |
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 { |