blob: 8e39802a664db39912dd6a63e8e3329c7989a581 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl
@ARGV == 1 or die "usage $0: <cvslog2changelog script>\n";
($script) = @ARGV;
$date = (split('/', `grep ChangeLog perl-install/CVS/Entries`))[3];
@changelog = `(cvs log -d ">$date" docs mdk-stage1 rescue tools ; cd perl-install; cvs log -d ">$date") | $script`;
@before = `cat perl-install/ChangeLog`;
open F, ">perl-install/ChangeLog";
print F foreach @changelog, @before;
`cvs commit -m '' perl-install/ChangeLog` =~ /new revision: (.*?);/;
print "$1\n";
print foreach @changelog;
|
