contrib/index-prop

   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
   8 while (<>)
   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 }