Provide also the ./ filenames prefixing.

[nethome.git] / bin / diffdecvs

diff --git a/bin/diffdecvs b/bin/diffdecvs
index dfbedf1..7b65e6d 100755 (executable)
--- a/bin/diffdecvs
+++ b/bin/diffdecvs
@@ -6,7 +6,20 @@ if [ $# -ge 2 ];then
        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 (?![.]?/)}{$&./} if $wasdiff==2;
+       s{^\Q+++\E (?![.]?/)}{$&./} 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