1#! /usr/bin/perl -wi
2# Fix up the output of cvs diff -c so that it works with patch.
3# We do this by propagating the full pathname from the Index: line
4# into the diff itself.
5#
6# Thrown together by Jason Merrill <jason@cygnus.com>
7
8while (<>)
9{
10  if (/^Index: (.*)/) 
11    {
12      $full = $1;
13      print;
14      for (1..7)
15	{
16	  $_ = <>;
17	  s/^([-+*]{3}) [^\t]+\t/$1 $full\t/
18	    unless m{ /dev/null\t};
19	  print;
20	}
21    }
22  else
23    {
24      print;
25    }
26}
27