* de.po: Update.
[official-gcc.git] / contrib / index-prop
blob1ea648989f68fe3e421146b729a0a743c3859d88
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.
6 # Thrown together by Jason Merrill <jason@cygnus.com>
8 while (<>)
10 if (/^Index: (.*)/)
12 $full = $1;
13 print;
14 for (1..7)
16 $_ = <>;
17 s/^([-+*]{3}) [^\t]+\t/$1 $full\t/
18 unless m{ /dev/null\t};
19 print;
22 else
24 print;