OLD | NEW |
(Empty) | |
| 1 #!/usr/bin/perl -w |
| 2 |
| 3 my $debian; |
| 4 $debian = $ARGV[0] if (defined $ARGV[0]); |
| 5 $debian = 'debian.chrome' if (!defined $debian); |
| 6 |
| 7 system("make -s -f $debian/rules printchanges > $debian/changes"); |
| 8 |
| 9 open(CHANGELOG, "< $debian/changelog") or die "Cannot open changelog"; |
| 10 open(CHANGES, "< $debian/changes") or die "Cannot open new changes"; |
| 11 open(NEW, "> $debian/changelog.new") or die "Cannot open new changelog"; |
| 12 |
| 13 $printed = 0; |
| 14 |
| 15 while (<CHANGELOG>) { |
| 16 if (/^ CHANGELOG: /) { |
| 17 next if $printed; |
| 18 |
| 19 while (<CHANGES>) { |
| 20 print NEW; |
| 21 } |
| 22 |
| 23 $printed = 1; |
| 24 } else { |
| 25 print NEW; |
| 26 } |
| 27 } |
| 28 |
| 29 close(NEW); |
| 30 close(CHANGES); |
| 31 close(CHANGELOG); |
| 32 |
| 33 rename("$debian/changelog.new", "$debian/changelog"); |
| 34 unlink("$debian/changes"); |
OLD | NEW |