blob: 9936b4f407eac18e9b158fafea39cab46bf08dd6 (
plain)
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 ($f) {
complex_doit("perl -pe 's~#SCRIPTSCOMMON#~qx{cat debian/${ext}scripts-common}~eg' -i $f");
}
}
}
|
