summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-13 11:57:53 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-13 11:57:53 +0000
commitf9974510298070fc169b3a7a1874009dd2fbf62f (patch)
treebce6753d6d09e4f9c6567377c6bb352568a03df4 /perl-install/install_steps_gtk.pm
parent48bc14536b460c09bd2ee1566a9fb83de64910ac (diff)
downloaddrakx-f9974510298070fc169b3a7a1874009dd2fbf62f.tar
drakx-f9974510298070fc169b3a7a1874009dd2fbf62f.tar.gz
drakx-f9974510298070fc169b3a7a1874009dd2fbf62f.tar.bz2
drakx-f9974510298070fc169b3a7a1874009dd2fbf62f.tar.xz
drakx-f9974510298070fc169b3a7a1874009dd2fbf62f.zip
added conditional update-menus if package are installed.
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 3 insertions, 1 deletions
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 {