aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS2
-rw-r--r--URPM.xs5
-rw-r--r--URPM/Build.pm3
3 files changed, 7 insertions, 3 deletions
diff --git a/NEWS b/NEWS
index 3ba84e1..2cf9c1d 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,8 @@
- make it compatible with rpm-4.12.0
- use new recommends tags instead of suggests ones
- rename "suggests" method as "recommends_nosense"
+- add support for generating @recommends@ lines instead of @suggests@ ones in
+ synthesis
Version 4.31 - 27 June 2014
diff --git a/URPM.xs b/URPM.xs
index 3750fd0..4a01edf 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2067,10 +2067,11 @@ Pkg_free_header(pkg)
pkg->h = NULL;
void
-Pkg_build_info(pkg, fileno, provides_files=NULL)
+Pkg_build_info(pkg, fileno, provides_files=NULL, recommends=0)
URPM::Package pkg
int fileno
char *provides_files
+ int recommends
CODE:
if (pkg->info) {
char buff[65536*2];
@@ -2100,7 +2101,7 @@ Pkg_build_info(pkg, fileno, provides_files=NULL)
if (size < sizeof(buff)) write_nocheck(fileno, buff, size);
}
if (pkg->recommends && *pkg->recommends) {
- size = snprintf(buff, sizeof(buff), "@suggests@%s\n", pkg->recommends);
+ size = snprintf(buff, sizeof(buff), recommends ? "@recommends@%s\n" : "@suggests@%s\n", pkg->recommends);
if (size < sizeof(buff)) write_nocheck(fileno, buff, size);
}
if (pkg->summary && *pkg->summary) {
diff --git a/URPM/Build.pm b/URPM/Build.pm
index acf8335..3ac41a8 100644
--- a/URPM/Build.pm
+++ b/URPM/Build.pm
@@ -415,6 +415,7 @@ sub build_hdlist {
#- start : index of first package (defaults to first index of depslist).
#- end : index of last package (defaults to last index of depslist).
#- idlist : id list of rpm to compute (defaults is start .. end)
+#- recommends: output recommends instead of suggest
#- ratio : compression ratio (default 9).
#- filter : program to filter through (default is 'gzip -$ratio').
#- returns true on success
@@ -449,7 +450,7 @@ sub build_synthesis {
delete @files{$pkg->provides_nosense};
}
- $pkg->build_info($options{synthesis} ? fileno $fh : $options{fd}, join('@', keys %files));
+ $pkg->build_info($options{synthesis} ? fileno $fh : $options{fd}, join('@', keys %files), $options{recommends});
}
close $fh; # returns true on success
}