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