File: control.in

package info (click to toggle)
dkim-rotate 1.1
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 196 kB
  • sloc: perl: 832; sh: 324; makefile: 55
file content (25 lines) | stat: -rwxr-xr-x 438 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/perl -w
use strict;

require './debian/deps.pl';

my %deps = scan_extract();

while (<DATA>) {
  if (s{ \$\{ ([\w:]+) \}}{$deps{$1}}gex) {
    s{\s* ,+ [ \t]*}{, }gx;
    s{, $}{};
  }
  print or die $!;
}

flush STDOUT or die $!;

__DATA__
Tests: faketime
Restrictions: allow-stderr
Depends: @, ${runtime:Recommends}, ${testing:Depends}

Tests: mindeps
Restrictions: needs-root, allow-stderr
Depends: @, ${runtime:Recommends}