debian/bd-to-depends

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