mk.control

#!/usr/bin/perl -w

open BUILDDEPS, "debian/build-deps";
@builddeplist = <BUILDDEPS>;
close BUILDDEPS;

chomp(@builddeplist);
$builddeps = join(", ", @builddeplist);

open CONTROLIN, "debian/control.in";

while(<CONTROLIN>){
        s/BUILDDEPS/$builddeps/;
        print;
}