[dh-r] 26/43: Add fix-deps script

[Gordon Ball]

This is an automated email from the git hooks/post-receive script.

chronitis-guest pushed a commit to branch master
in repository dh-r.

commit dd78c5c9c7d624ea051715dafdcc3db64039a375
Author: Gordon Ball <gordon at chronitis.net>
Date:   Tue Sep 6 17:11:09 2016 +0200

    Add fix-deps script
---
 scripts/fix-deps.pm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/scripts/fix-deps.pm b/scripts/fix-deps.pm
new file mode 100644
index 0000000..15ce095
--- /dev/null
+++ b/scripts/fix-deps.pm
@@ -0,0 +1,34 @@
+use feature say;
+use strict;
+
+use Dpkg::Control::Info;
+use Dpkg::Deps;
+
+my $ctrl = Dpkg::Control::Info->new();
+my $src = $ctrl->get_source();
+my $bin = $ctrl->get_pkg_by_idx(1);
+
+
+$bin->{Depends} = Dpkg::Deps::deps_concat("\${R:Depends}", "\${misc:Depends}", "\${shlib:Depends}");
+if (defined $bin->{Recommends}) {
+    $bin->{Recommends} = "\${R:Recommends}";
+}
+if (defined $bin->{Suggests}) {
+    $bin->{Suggests} = "\${R:Suggests}";
+}
+
+my @bdeps = Dpkg::Deps::deps_parse($src->{"Build-Depends"})->get_deps();
+
+if (grep(/^cdbs/, @bdeps)) {
+    @bdeps = grep {!/^cdbs/} @bdeps;
+}
+
+if (! grep(/^dh-r/, @bdeps)) {
+    push (@bdeps, "dh-r");
+}
+
+$src->{"Build-Depends"} = Dpkg::Deps::deps_concat(@bdeps);
+
+say $ctrl->output();
+
+

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/dh-r.git