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 (?![.]?/)}{$&./} if $wasdiff==2;
14 s{^\Q+++\E (?![.]?/)}{$&./} if $wasdiff==1;
19 next if /^retrieving revision /;
24 exec perl -ne "$prog" -i "$1"