debian/mk.control

   1 #!/usr/bin/perl -w
   2
   3 open BUILDDEPS, "debian/build-deps";
   4 @builddeplist = <BUILDDEPS>;
   5 close BUILDDEPS;
   6
   7 chomp(@builddeplist);
   8 @builddeplist = grep(!/^$/, @builddeplist);
   9 $builddeps = join(", ", @builddeplist);
  10
  11 open CONTROLIN, "debian/control.in";
  12
  13 while(<CONTROLIN>){
  14         s/BUILDDEPS/$builddeps/;
  15         print;
  16 }
  17