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