- fix not finding grpmi in sudo mode

- fix unclickable "not finding grpmi" dialog

1 files changed, 6 insertions, 5 deletions

diff --git a/rpmdrake b/rpmdrake
index 329abc01..9a4dae65 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -874,6 +874,10 @@ sub dialog_rpmnew {
 sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
     my ($urpm) = @_;
 
+    my $grpmi = '/usr/sbin/grpmi';
+    -x $grpmi or fatal_msg(_("Program missing"),
+			   _("A required program is missing (grpmi). Check your installation.")), myexit(-1);
+
 my $fatal_msg;
 local $urpm->{fatal} = sub { $fatal_msg = $_[1]; die };
 
@@ -916,11 +920,8 @@ eval {
 		my_gtk::flush();
 	    }
 	} else {
-	    exec('grpmi', if_($options{'no-verify-rpm'}, '--no-verify-rpm'),
-		          (map { ("-noupgrade", $_) } @rpms_install),
-		          @rpms_upgrade)
-	      or fatal_msg(_("Program missing"),
-			   _("A required program is missing (grpmi). Check your installation.")), myexit(-1);
+	    exec($grpmi, if_($options{'no-verify-rpm'}, '--no-verify-rpm'), (map { ("-noupgrade", $_) } @rpms_install), @rpms_upgrade)
+	      or print(STDERR "   *** ERROR *** Could not exec $grpmi.\n"), c::_exit(-1);
 	}
 	my $exitstatus = $?;
 	my %pkg2rpmnew;