From a49904949dce5efb8bddc691d8c45dc5c518358f Mon Sep 17 00:00:00 2001 From: Petr Písař Date: Jun 28 2017 11:39:23 +0000 Subject: Recognize Obsoletes as a dependency tag --- diff --git a/lib/RPM/SpecEditor/Node.pm b/lib/RPM/SpecEditor/Node.pm index a734b0f..6d0e510 100644 --- a/lib/RPM/SpecEditor/Node.pm +++ b/lib/RPM/SpecEditor/Node.pm @@ -127,6 +127,7 @@ Return node type. Known values are: =item Suggests =item Supplements =item Conflicts +=item Obsoletes =item dependency =back @@ -556,7 +557,8 @@ sub isTag { =head2 isDependencyTag() Return true if the node is one of the dependency tags (Provides, BuildRequires, -BuildConflicts, Requires, Recommends, Suggests, Supplements, Conflicts). Otherwise returns false. +BuildConflicts, Requires, Recommends, Suggests, Supplements, Conflicts, +Obsoletes). Otherwise returns false. =cut @@ -564,7 +566,7 @@ sub isDependencyTag { my $self = shift; my $type = $self->type; my @deptypes = (qw( Provides BuildRequires BuildConflicts - Requires Recommends Suggests Supplements Conflicts)); + Requires Recommends Suggests Supplements Conflicts Obsoletes)); for (@deptypes) { if ($type eq $_) { return 1;