diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-08-27 16:07:43 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-11-04 07:41:50 +0100 |
commit | 4330c5dfd59f6e2d33435a6ccc5574247c0c756a (patch) | |
tree | 6133f7bc6d996576c0b058412e9dbfee670cc002 | |
parent | 842946749488c80f0e08ad3c9d782f3e85cbc63b (diff) | |
download | perl-URPM-4330c5dfd59f6e2d33435a6ccc5574247c0c756a.tar perl-URPM-4330c5dfd59f6e2d33435a6ccc5574247c0c756a.tar.gz perl-URPM-4330c5dfd59f6e2d33435a6ccc5574247c0c756a.tar.bz2 perl-URPM-4330c5dfd59f6e2d33435a6ccc5574247c0c756a.tar.xz perl-URPM-4330c5dfd59f6e2d33435a6ccc5574247c0c756a.zip |
add support for generating recommends in synthesis
aka having @recommends@ lines instead of @suggests@ ones
Conflicts:
NEWS
URPM.xs
-rw-r--r-- | NEWS | 2 | ||||
-rw-r--r-- | URPM.xs | 5 | ||||
-rw-r--r-- | URPM/Build.pm | 3 |
3 files changed, 7 insertions, 3 deletions
@@ -1,5 +1,7 @@ - make it compatible with rpm-4.12.0 - use new recommends tags instead of suggests ones +- add support for generating @recommends@ lines instead of @suggests@ ones in + synthesis Version 3.40.3 - 15 April 2013 @@ -2365,10 +2365,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]; @@ -2398,7 +2399,7 @@ Pkg_build_info(pkg, fileno, provides_files=NULL) if (size < sizeof(buff)) write_nocheck(fileno, buff, size); } if (pkg->suggests && *pkg->suggests) { - size = snprintf(buff, sizeof(buff), "@suggests@%s\n", pkg->suggests); + size = snprintf(buff, sizeof(buff), recommends ? "@recommends@%s\n" : "@suggests@%s\n", pkg->suggests); 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 ad74090..d0a726c 100644 --- a/URPM/Build.pm +++ b/URPM/Build.pm @@ -416,6 +416,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 @@ -450,7 +451,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 } |