diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-04-13 11:57:53 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-04-13 11:57:53 +0000 |
| commit | f9974510298070fc169b3a7a1874009dd2fbf62f (patch) | |
| tree | bce6753d6d09e4f9c6567377c6bb352568a03df4 /perl-install | |
| parent | 48bc14536b460c09bd2ee1566a9fb83de64910ac (diff) | |
| download | drakx-backup-do-not-use-f9974510298070fc169b3a7a1874009dd2fbf62f.tar drakx-backup-do-not-use-f9974510298070fc169b3a7a1874009dd2fbf62f.tar.gz drakx-backup-do-not-use-f9974510298070fc169b3a7a1874009dd2fbf62f.tar.bz2 drakx-backup-do-not-use-f9974510298070fc169b3a7a1874009dd2fbf62f.tar.xz drakx-backup-do-not-use-f9974510298070fc169b3a7a1874009dd2fbf62f.zip | |
added conditional update-menus if package are installed.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 4 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
3 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 83dbf3d61..59ee51fac 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -374,6 +374,7 @@ sub installPackages($$) { #- complete REWORK, TODO and TOCHECK! run_program::rooted_or_die($o->{prefix}, 'ldconfig') unless $::g_auto_install; log::l("Install took: ", formatTimeRaw(time - $time)); install_any::log_sizes($o); + scalar(@toInstall); #- return number of packages installed. } sub afterInstallPackages($) { diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 3d3808155..4dce16d39 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -685,7 +685,8 @@ If you don't have it, press Cancel to avoid installation from this Cd-Rom.", $na $r; }; }; - catch_cdie { $o->install_steps::installPackages($packages); } + my $install_result; + catch_cdie { $install_result = $o->install_steps::installPackages($packages); } sub { if ($@ =~ /^error ordering package list: (.*)/) { $o->ask_yesorno('', [ @@ -703,6 +704,7 @@ _("There was an error installing packages:"), $1, _("Go on anyway?") ], 1) and r die "setstep choosePackages\n"; } $w->destroy; + $install_result; } sub set_help { diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 64ded482c..e96c4b825 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -871,10 +871,8 @@ sub configurePrinter { sub { $o->pkg_install(@_) }, sub { install_interactive::upNetwork($o, 'pppAvoided') }); if (!is_empty_hash_ref($printer->{configured}) || pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'cups'))) { - $o->pkg_install_if_requires_satisfied('Mesa-common', 'xpp', 'libqtcups2', 'qtcups', 'kups') ; - - #- call update-menus at the end of these package installation, as some menu entries may have been added. - run_program::rooted($o->{prefix}, "update-menus"); + $o->pkg_install_if_requires_satisfied('Mesa-common', 'xpp', 'libqtcups2', 'qtcups', 'kups') + and run_program::rooted($o->{prefix}, "update-menus"); } } |