fix computing kernel orphans when running kernel is not the latest (2/2)

prevent trying to remove the currently running (not latest) kernel

reintroducing a line drop in commit r6238 from Oct 15 2012:
"(_all_unrequested_orphans) prevent offering to remove DKMS modules
for current kernel (mga#5092)"

1 files changed, 1 insertions, 0 deletions

diff --git a/urpm/orphans.pm b/urpm/orphans.pm
index 03f9e64e..633c6be1 100644
--- a/urpm/orphans.pm
+++ b/urpm/orphans.pm
@@ -441,6 +441,7 @@ sub _all_unrequested_orphans {
     }
 
     # do not offer to remove current kernel or DKMS modules for current kernel:
+    delete $l{$current_kernel};
     do { delete $l{$_} } foreach grep { /$current_kernel_version/ } keys %l;
     [ values %l ];
 }