aboutsummaryrefslogtreecommitdiffstats
path: root/grpmi/grpmi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'grpmi/grpmi.pl')
-rwxr-xr-xgrpmi/grpmi.pl8
1 files changed, 5 insertions, 3 deletions
diff --git a/grpmi/grpmi.pl b/grpmi/grpmi.pl
index 3fc14ef6..c4df589c 100755
--- a/grpmi/grpmi.pl
+++ b/grpmi/grpmi.pl
@@ -38,6 +38,7 @@ sub _ {
my $s = shift @_; my $t = translate($s);
sprintf $t, @_;
}
+sub mexit { my_gtk::exit @_ }
sub interactive_msg {
my ($title, $contents, $yesno) = @_;
@@ -60,10 +61,10 @@ sub interactive_msg {
Gtk->init;
$> and interactive_msg(_("Error..."),
- _("You need to be root to install packages, sorry.")), exit -1;
+ _("You need to be root to install packages, sorry.")), mexit -1;
grpmi_rpm::init_rcstuff() and interactive_msg(_("RPM initialization error"),
- _("The initialization of config files of RPM was not possible, sorry.")), exit -1;
+ _("The initialization of config files of RPM was not possible, sorry.")), mexit -1;
$ENV{HOME} ||= '/root';
my @grpmi_config = map { chomp_($_) } cat_("$ENV{HOME}/.grpmi");
@@ -172,6 +173,7 @@ Do you want to force the install anyway?",
# -=-=-=---=-=-=---=-=-=-- cleanup -=-=-=---=-=-=--
$exitstatus = 0;
+$mainw->{rwindow}->hide;
interactive_msg(_("Everything installed successfully"), _("All requested packages were installed successfully."));
cleanup:
if (!member('noclearcache', @grpmi_config)) {
@@ -180,4 +182,4 @@ if (!member('noclearcache', @grpmi_config)) {
/^\Q$cache_location/ and unlink;
}
}
-exit $exitstatus;
+mexit $exitstatus;