when installing packages, set urpm->{fatal} so that I can

intercept when "cancel" is clicked for the change of CD's -> we
no more exit the program anymore

1 files changed, 8 insertions, 0 deletions

diff --git a/rpmdrake b/rpmdrake
index f67ba3ef..1514ab53 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -873,6 +873,10 @@ sub dialog_rpmnew {
 sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
     my ($urpm) = @_;
 
+my $fatal_msg;
+local $urpm->{fatal} = sub { $fatal_msg = $_[1]; die };
+
+eval {
     standalone::explanations("Removing package $_") foreach keys %{$urpm->{state}{ask_remove}};
 
     my %pkgs;
@@ -934,6 +938,10 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
 	interactive_msg(_("Everything already installed."),
 			_("Everything already installed (is this supposed to happen at all?)."));
     }
+};
+$@ and interactive_msg(_("Problem during installation"),
+		       _("There was a problem during the installation:\n\n%s", $fatal_msg));
+
 }