File: dh_installscripts-common

package info (click to toggle)
ddclient 3.8.3-1.1
  • links: PTS, VCS
  • area: main
  • in suites: buster, stretch
  • size: 1,360 kB
  • sloc: perl: 16,297; sh: 643; xml: 55; makefile: 48
file content (22 lines) | stat: -rw-r--r-- 420 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!/usr/bin/perl -w

use strict;
use Debian::Debhelper::Dh_Lib;

init();

foreach my $package (@{$dh{DOPACKAGES}}) {
	my $tmp=tmpdir($package);
	my $ext=pkgext($package);

	if (! -d "$tmp/DEBIAN") {
		next;
	}

	foreach my $file (qw{postinst preinst prerm postrm config}) {
		my $f="$tmp/DEBIAN/$file";
		if (-e $f) {
			complex_doit("perl -pe 's~#SCRIPTSCOMMON#~qx{cat debian/${ext}scripts-common}~eg' -i $f");
		}
	}
}