blob: 1c18234727f13390a86b4f0fcc6bcf02e44ff114 (
plain)
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
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/perl -w
my $debian;
$droot = $ARGV[0] if (defined $ARGV[0]);
$droot = 'debian' if (!defined $droot);
$debian = $ARGV[1] if (defined $ARGV[1]);
$debian = 'debian.linaro' if (!defined $debian);
system("make -s -f $droot/rules printchanges > $debian/changes");
open(CHANGELOG, "< $debian/changelog") or die "Cannot open changelog";
open(CHANGES, "< $debian/changes") or die "Cannot open new changes";
open(NEW, "> $debian/changelog.new") or die "Cannot open new changelog";
$printed = 0;
while (<CHANGELOG>) {
if (/^ CHANGELOG: /) {
next if $printed;
while (<CHANGES>) {
print NEW;
}
$printed = 1;
} else {
print NEW;
}
}
close(NEW);
close(CHANGES);
close(CHANGELOG);
rename("$debian/changelog.new", "$debian/changelog");
unlink("$debian/changes");
|
