diff options
| -rw-r--r-- | lib/Youri/Package/RPM.pm | 12 |
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; |