From 445e7acb7982ce06474bc5d76dcd8aa5e7b3b27f Mon Sep 17 00:00:00 2001 From: Michael Krufky Date: Sun, 4 Dec 2005 19:23:11 +0000 Subject: 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 --- v4l/scripts/prepare-ChangeLog.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'v4l/scripts') 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 ; 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 = ; 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 () { $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) { -- cgit v1.2.3