From f9974510298070fc169b3a7a1874009dd2fbf62f Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 13 Apr 2001 11:57:53 +0000 Subject: added conditional update-menus if package are installed. --- perl-install/install_steps_gtk.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/install_steps_gtk.pm') 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 { -- cgit v1.2.1