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"); |