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/ [^\t]+\t/ $full\t/;
  18           print;
  19         }
  20     }
  21   else
  22     {
  23       print;
  24     }
  25 }