control file with only the manual build deps.

using genbuildeps may be overkill for this

1 files changed, 35 insertions, 0 deletions

diff --git a/debian/genbuilddeps b/debian/genbuilddeps
new file mode 100755
index 000000000..ca94a4f06
--- /dev/null
+++ b/debian/genbuilddeps
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+# Generate build deps line from comments in the control file and replace
+# the current build deps line in the control file with it.
+
+my $control;
+if (-e "debian/control") {
+	$control="debian/control";
+}
+elsif (-e "control") {
+	$control="control";
+}
+else {
+	die "cannot find control file";
+}
+
+my @builddeps;
+my @lines;
+open (IN, $control) || die "read $control: $!";
+while (<IN>) {
+	push @lines, $_;
+	chomp;
+	if (/^#\s+-\s+(.*)$/) {
+		push @builddeps, $1;
+	}
+}
+close IN;
+
+my $builddeps=join(", ", @builddeps);
+open (OUT, ">$control.tmp") || die "write $control.tmp: $!";
+foreach (@lines) {
+	s/^(Build-Depends:\s+)(.*)/$1$builddeps/;
+	print OUT || die "print: $!";
+}
+close OUT || die "close: $!";
+rename("$control.tmp", "$control");