From 177854efc85c0bd321f52fc64c7637b40921d9a5 Mon Sep 17 00:00:00 2001
From: Gustavo De Nardin <spuk@mandriva.org>
Date: Fri, 17 Apr 2009 21:35:33 +0000
Subject: - catch kernel debug packages, which have -debug- somewhere in the
 name, but never at the end

---
 lib/Youri/Package/RPM.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/lib/Youri/Package/RPM.pm b/lib/Youri/Package/RPM.pm
index fc85db0..1f72830 100644
--- a/lib/Youri/Package/RPM.pm
+++ b/lib/Youri/Package/RPM.pm
@@ -42,7 +42,17 @@ sub is_debug {
     my ($self) = @_;
     croak "Not a class method" unless ref $self;
 
-    return $self->get_name() =~ /-debug$/o && $self->get_tag('group') =~ m,^Development/Debug$,;
+    my $name = $self->get_name();
+    my $group = $self->get_tag('group');
+
+    # debug packages' names must end in -debug, except kernel
+    if ($group =~ m,^Development/Debug$, &&
+        ($name =~ /-debug$/o || $name =~ /^kernel-.*-debug/o)) {
+        return 1;
+    }
+    else {
+        return 0;
+    }
 }
 
 1;
-- 
cgit v1.2.1