diff options
| author | Michael Krufky <devnull@localhost> | 2005-12-04 19:23:11 +0000 |
|---|---|---|
| committer | Michael Krufky <devnull@localhost> | 2005-12-04 19:23:11 +0000 |
| commit | 445e7acb7982ce06474bc5d76dcd8aa5e7b3b27f (patch) | |
| tree | 5e11aa0d622999a51d3d11743db632061dd737a4 /v4l/scripts | |
| parent | c5c68bc2b8f184d2507facc7f627821cae1c80d2 (diff) | |
| download | mediapointer-dvb-s2-445e7acb7982ce06474bc5d76dcd8aa5e7b3b27f.tar.gz mediapointer-dvb-s2-445e7acb7982ce06474bc5d76dcd8aa5e7b3b27f.tar.bz2 | |
Prepare Changelog entries relative to top-level cvs directory.
- Show Changelog entries relative to top-level cvs directory,
rather than v4l/ directory.
Signed-off-by: Michael Krufky <mkrufky@m1k.net>
Diffstat (limited to 'v4l/scripts')
| -rw-r--r-- | v4l/scripts/prepare-ChangeLog.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/v4l/scripts/prepare-ChangeLog.pl b/v4l/scripts/prepare-ChangeLog.pl index f464d7573..3aa696efd 100644 --- a/v4l/scripts/prepare-ChangeLog.pl +++ b/v4l/scripts/prepare-ChangeLog.pl @@ -81,7 +81,7 @@ print STDERR " Updating ChangeLog from cvs repository.\n"; open ERRORS, "cvs update ChangeLog |" or die "The cvs update of ChangeLog failed: $OS_ERROR.\n"; print STDERR " $ARG" while <ERRORS>; close ERRORS; -open OLD_CHANGE_LOG, "ChangeLog" or die "Could not open ChangeLog file: $OS_ERROR.\n"; +open OLD_CHANGE_LOG, "v4l/ChangeLog" or die "Could not open ChangeLog file: $OS_ERROR.\n"; my @old_change_log = <OLD_CHANGE_LOG>; close OLD_CHANGE_LOG; @@ -90,12 +90,12 @@ close OLD_CHANGE_LOG; print STDERR " Running cvs diff to find changes.\n"; my %changed_line_ranges; my $file; -open DIFF, "cvs -fq diff -N ..|" or die "The cvs diff failed: $OS_ERROR.\n"; +open DIFF, "cvs -fq diff -N |" or die "The cvs diff failed: $OS_ERROR.\n"; while (<DIFF>) { $file = $1 if /^Index: (\S+)$/; if (defined $file - and $file ne "../v4l/ChangeLog" + and $file ne "v4l/ChangeLog" and (/^\d+(,\d+)?[acd](\d+)(,(\d+))?/ or /^Binary files/) ) { push @{$changed_line_ranges{$file}}, [ $2, $4 || $2 ]; @@ -168,7 +168,7 @@ my $date = sprintf "%d-%02d-%02d %02d:%02d", (gmtime $BASETIME)[2], # hour (gmtime $BASETIME)[1]; # min -open CHANGE_LOG, "> ChangeLog" or die "Could not write ChangeLog\n."; +open CHANGE_LOG, "> v4l/ChangeLog" or die "Could not write ChangeLog\n."; print CHANGE_LOG "$date $login\n\n"; foreach my $file (sort keys %function_lists) { |