add >recommends method (mga#14376)

unlike recommends_nosense, it returns version too

3 files changed, 6 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 1bf5329..b041b3f 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- add >recommends method (mga#14376)
+
 Version 5.01 - 23 October 2014
 
 - fix crashing in pthread when using log callback with rpm-4.12 (mga#14172)
diff --git a/URPM.pm b/URPM.pm
index d7a12f6..169bdc4 100644
--- a/URPM.pm
+++ b/URPM.pm
@@ -765,6 +765,8 @@ Just the provided package name.
 
 =item $package->requires()
 
+=item $package->recommends()
+
 Full requires tags
 
 =item $package->requires_nosense()
diff --git a/URPM.xs b/URPM.xs
index 49e4124..b37c8bd 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1842,6 +1842,7 @@ Pkg_obsoletes(pkg)
       conflicts = 1
       provides  = 2
       requires  = 3
+      recommends= 4
   PPCODE:
   PUTBACK;
   rpmTag tag, flags, tag_version;
@@ -1850,6 +1851,7 @@ Pkg_obsoletes(pkg)
   case 1:  tag = RPMTAG_CONFLICTNAME; s = pkg->conflicts; flags = RPMTAG_CONFLICTFLAGS; tag_version = RPMTAG_CONFLICTVERSION; break;
   case 2:  tag = RPMTAG_PROVIDENAME;  s = pkg->provides;  flags = RPMTAG_PROVIDEFLAGS;  tag_version = RPMTAG_PROVIDEVERSION;  break;
   case 3:  tag = RPMTAG_REQUIRENAME;  s = pkg->requires;  flags = RPMTAG_REQUIREFLAGS;  tag_version = RPMTAG_REQUIREVERSION;  break;
+  case 4:  tag = RPMTAG_RECOMMENDNAME;s = pkg->recommends;flags = RPMTAG_RECOMMENDFLAGS;tag_version = RPMTAG_RECOMMENDVERSION;break;
   default: tag = RPMTAG_OBSOLETENAME; s = pkg->obsoletes; flags = RPMTAG_OBSOLETEFLAGS; tag_version = RPMTAG_OBSOLETEVERSION; break;
   }
   return_list_str(s, pkg->h, tag, flags, tag_version, callback_list_str_xpush, NULL);