debian/bd-to-depends

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my @exclusions = (
   7     'debhelper',
   8 );
   9
  10 open my $control_fh, '<', 'debian/control' or die "Cannot open debian/control";
  11 my @lines = <$control_fh>;
  12 close $control_fh;
  13
  14 my @build_depends;
  15 my $in_build_depends_block;
  16 for my $line ( @lines ) {
  17     chomp $line;
  18     if ( $line =~ m|Build-Depends:| ) {
  19         $in_build_depends_block = 1;
  20         $line =~ s|Build-Depends:||;
  21     }
  22     next unless $in_build_depends_block;
  23     if ( $line =~ m|^\s*$| ) {
  24         last;
  25     }
  26     for my $dep ( split ',', $line ) {
  27         $dep =~ s|^\s*||;
  28         push @build_depends, $dep unless ( map { ( $dep =~ m|$_| ) ? 1 : () } @exclusions);
  29     }
  30 }
  31 print 'koha:Depends=' . join ( ', ', @build_depends ) . "\n";