| Index: debian.chrome/scripts/misc/insert-changes.pl
|
| diff --git a/debian.chrome/scripts/misc/insert-changes.pl b/debian.chrome/scripts/misc/insert-changes.pl
|
| new file mode 100755
|
| index 0000000000000000000000000000000000000000..def2ca8b377c307c0ae527c4e8953243536f50c7
|
| --- /dev/null
|
| +++ b/debian.chrome/scripts/misc/insert-changes.pl
|
| @@ -0,0 +1,34 @@
|
| +#!/usr/bin/perl -w
|
| +
|
| +my $debian;
|
| +$debian = $ARGV[0] if (defined $ARGV[0]);
|
| +$debian = 'debian.chrome' if (!defined $debian);
|
| +
|
| +system("make -s -f $debian/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");
|
|
|