#! /usr/bin/perl
# cvs-fix.pl - fix broken +++/--- lines of `cvs diff ...' diff files.

use strict;

my($idx) = "";
my ($diffHdr) = 0;

while (<>) {
	chop;
	if (/^Index: (.*)/) {
		$idx = $1;
		$diffHdr = 1;
	} elsif ($diffHdr && (/^([-]{3}|[+]{3}) \S+(.*)/)) {
		printf "%s %s %s\n", $1, $idx, $2;
		next;
	} elsif (/^@@/) {
		$diffHdr = 0;
	}
	print $_,"\n";
}