- catch kernel debug packages, which have -debug- somewhere in the name, but never at the end

1 files changed, 11 insertions, 1 deletions

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;