#!/usr/bin/perl -p

if (/^RCS.*cvs\/(.*),v/) { $path=$1; }
if (/^\+\+\+/ || /^\-\-\-/) { s/(...) [^ ]+(.*)/$1 $path $2/; }
if (/^diff/) { s/ [^ ]+$/ $path\n/; }
if (/^\?/) { $_=""; }