From 69fa39ec3904344f8f3c9e3c247dd7a46b4bfa84 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 23 Jan 2008 17:29:51 +0000
Subject: (ask_browse_tree_given_widgets_for_rpmdrake) prevent selecting
 basesystem packages earlier (#36367)

---
 Rpmdrake/gui.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 7ef778d4..e9473703 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -376,6 +376,13 @@ sub ask_browse_tree_given_widgets_for_rpmdrake {
         my $_cleaner = before_leaving { gtkset_mousecursor_normal($w->{w}{rwindow}->window) };
         my $name = $w->{detail_list_model}->get($iter, $pkg_columns{text});
         my $urpm_obj = $pkgs->{$name}{pkg};
+
+        if ($urpm_obj->flag_base) {
+            interactive_msg(N("Warning"),
+                            N("Removing package %s would break your system", $name));
+            return '';
+        }
+
         if ($urpm_obj->flag_skip) {
             interactive_msg(N("Warning"), N("The \"%s\" package is in urpmi skip list.\nDo you want to select it anyway?", $name), yesno => 1) or return '';
             $urpm_obj->set_flag_skip(0);
-- 
cgit v1.2.1