5 echo >&2 "Syntax: $0 [<diff>]"
10 $wasdiff-- if $wasdiff;
11 $wasdiff=3 if /^diff -/ || /^revision /;
12 # Do not substitute already existing "./"... or "/dev/null".
13 # gdb.spec is using -p1.
14 s{^(\Q---\E )gdb-[^/]*/}{$1./} if $wasdiff==2;
15 s{^(\Q+++\E )gdb-[^/]*/}{$1./} if $wasdiff==1;
16 # binutils.spec is using -p0.
17 s{^(\Q---\E )binutils-[^/]*/}{$1} if $wasdiff==2;
18 s{^(\Q+++\E )binutils-[^/]*/}{$1} if $wasdiff==1;
19 $f=$1 if m{^--- (\S+)\s*$} && $wasdiff==2;
20 s{^(\Q+++\E )-\t}{$1$f\t} && wasdiff==1;
26 next if /^retrieving revision /;
29 next if /^new file mode /;
30 next if /^deleted file mode /;
31 next if m{^/.*,v --> standard output$};
35 exec perl -ne "$prog" -i "$1"