From a4d4e62a70d6b45dd3256c855f38ab98d4dc03cd Mon Sep 17 00:00:00 2001 From: Gustavo De Nardin Date: Wed, 13 Jun 2007 05:58:34 +0000 Subject: more precise definition of debug package --- lib/Youri/Package/RPM.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Youri/Package/RPM.pm b/lib/Youri/Package/RPM.pm index bb87f38..fc85db0 100644 --- a/lib/Youri/Package/RPM.pm +++ b/lib/Youri/Package/RPM.pm @@ -42,7 +42,7 @@ sub is_debug { my ($self) = @_; croak "Not a class method" unless ref $self; - return $self->get_name() =~ /-debug$/o; + return $self->get_name() =~ /-debug$/o && $self->get_tag('group') =~ m,^Development/Debug$,; } 1; -- cgit v1.2.1