5 echo >&2 "Syntax: $0 [<diff>]"
10 $wasdiff-- if $wasdiff;
11 $wasdiff=3 if /^diff -/;
12 # Do not substitute already existing "./"... or "/dev/null".
13 s{^(\Q---\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==2;
14 s{^(\Q+++\E )(?:gdb-[^/]*/|[.]/)?}{$1./} if $wasdiff==1;
19 next if /^retrieving revision /;
24 exec perl -ne "$prog" -i "$1"