diff options
author | John Rigby <john.rigby@linaro.org> | 2010-09-03 00:03:56 -0600 |
---|---|---|
committer | John Fredriksson <john.xj.fredriksson@stericsson.com> | 2011-10-19 15:16:44 +0200 |
commit | 416cf007581a06a08e7b4c2f9100fbc2437b48d8 (patch) | |
tree | 3ba3970c9f2500a47ee899d9385ca6711b1fe46a /debian/scripts/misc/insert-changes.pl | |
parent | 4bfaf5b8b51ceb9168dd9014fd9fbae0b97b7eeb (diff) |
LINARO: Add generic linaro packaging
Signed-off-by: John Rigby <john.rigby@linaro.org>
Diffstat (limited to 'debian/scripts/misc/insert-changes.pl')
-rwxr-xr-x | debian/scripts/misc/insert-changes.pl | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/debian/scripts/misc/insert-changes.pl b/debian/scripts/misc/insert-changes.pl new file mode 100755 index 00000000000..1c18234727f --- /dev/null +++ b/debian/scripts/misc/insert-changes.pl @@ -0,0 +1,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"); |