/usr/src/linux-source-3.13.0/debian/scripts/misc/insert-changes.pl is in linux-source-3.13.0 3.13.0-24.46.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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.master' 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");
|