exit 1
fi
-prog='print if !/^[?]/ && !/^Index:/ && !/^={67}$/ && !/^RCS file:/ && !/^retrieving revision / && !/^diff -/;'
+prog='
+ $wasdiff-- if $wasdiff;
+ $wasdiff=3 if /^diff -/;
+ # Do not substitute already existing "./"... or "/dev/null".
+ s{^(\Q---\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==2;
+ s{^(\Q+++\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==1;
+ next if /^[?]/;
+ next if /^Index:/;
+ next if /^={67}$/;
+ next if /^RCS file:/;
+ next if /^retrieving revision /;
+ next if /^diff -/;
+ print;
+'
if [ $# -eq 1 ];then
exec perl -ne "$prog" -i "$1"
else