(_get_current_kernel_package,_all_unrequested_orphans) do not offer to remove current kernel

2 files changed, 15 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index a895c43a..5d6bcd63 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,7 @@
+- orphans handling
+  o do not offer to remove current kernel (even if it's not a official
+    kernel
+
 Version 6.27.1 - 18 August 2009
 
 - make sure error messages are displayed (was broken as part of fix #50776)
diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index aa7a2a19..a7f722f9 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -290,6 +290,13 @@ sub _will_prop_still_be_needed {
     });
 }
 
+# so that we can filter out current running kernel:
+sub _get_current_kernel_package() {
+    my $release = (POSIX::uname())[2];
+    `rpm -qf --qf '%{name}' /boot/vmlinuz-$release`;
+}
+
+
 #- returns the list of "unrequested" orphans.
 #-
 #- side-effects: none
@@ -302,6 +309,8 @@ sub _all_unrequested_orphans {
 	push @{$provides{$_}}, $pkg foreach $pkg->provides_nosense;
     }
 
+    my $current_kernel = _get_current_kernel_package();
+
     while (my $pkg = shift @$req) {
 	foreach my $prop ($pkg->requires, $pkg->suggests) {
 	    my $n = URPM::property2name($prop);
@@ -314,6 +323,8 @@ sub _all_unrequested_orphans {
 	}
     }
 
+    # do not offer to remove current kernel:
+    delete $l{$current_kernel};
     [ values %l ];
 }