summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-07-30 13:59:09 +0000
committerFrancois Pons <fpons@mandriva.com>2003-07-30 13:59:09 +0000
commit2ed71ce7bea5826751fef045ce3841f5bd28ac9e (patch)
tree522a3a7e78b5508eab88bd7ac64d4b7bfd4fa001 /perl-install/install_steps_interactive.pm
parentb3eef480e46ffd4403199a1273e17c0aa3e88ea2 (diff)
downloaddrakx-2ed71ce7bea5826751fef045ce3841f5bd28ac9e.tar
drakx-2ed71ce7bea5826751fef045ce3841f5bd28ac9e.tar.gz
drakx-2ed71ce7bea5826751fef045ce3841f5bd28ac9e.tar.bz2
drakx-2ed71ce7bea5826751fef045ce3841f5bd28ac9e.tar.xz
drakx-2ed71ce7bea5826751fef045ce3841f5bd28ac9e.zip
remove eval around choosePackagesTree as it display something even if it doesn't run...
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index baeffaa5f..c02d0896b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -85,7 +85,7 @@ sub acceptLicense {
$o->ask_from_({ title => N("License agreement"),
cancel => N("Quit"),
- messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()),
+ messages => formatAlaTeX(install_messages::main_license() . "\n\n\n" . install_messages::warning_about_patents()),
interactive_help_id => 'acceptLicense',
callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
},
@@ -420,6 +420,7 @@ sub choosePackages {
pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $min_mark, $availableC);
$o->choosePackagesTree($packages) or goto chooseGroups if $individual;
+ $@ and log::l("<$@>");
install_any::warnAboutRemovedPackages($o, $o->{packages});
install_any::warnAboutNaughtyServers($o) or goto chooseGroups;
@@ -531,7 +532,7 @@ sub chooseGroups {
}
$o->reallyChooseGroups($size_to_display, $individual, \%val) or return;
- last if pkgs::correctSize($size / sqr(1024)) < $available_size;
+ last if $::testing || pkgs::correctSize($size / sqr(1024)) < $available_size;
$o->ask_warn('', N("Selected size is larger than available space"));
}
@@ -582,6 +583,7 @@ sub reallyChooseGroups {
my ($path, $all);
$o->ask_from_({ messages => N("Package Group Selection"),
interactive_help_id => 'choosePackages',
+ callbacks => { changed => sub { $size_text = &$size_to_display } },
}, [
{ val => \$size_text, type => 'label' }, {},
(map {
@@ -598,7 +600,7 @@ sub reallyChooseGroups {
} @{$o->{compssUsersSorted}}),
if_($o->{meta_class} eq 'desktop', { text => N("All"), val => \$all, type => 'bool' }),
if_($individual, { text => N("Individual package selection"), val => $individual, advanced => 1, type => 'bool' }),
- ], changed => sub { $size_text = &$size_to_display });
+ ]);
if ($all) {
$val->{$_} = 1 foreach keys %$val;