From: lace <>
Date: Thu, 3 Jan 2008 15:35:38 +0000 (+0000)
Subject: Provide also the ./ filenames prefixing.
X-Git-Url: https://git.jankratochvil.net/?a=commitdiff_plain;h=9ae5d129b8e52b7f3bfb92bf877cd98c05b1b661;p=nethome.git

Provide also the ./ filenames prefixing.
---

diff --git a/bin/diffdecvs b/bin/diffdecvs
index dfbedf1..7b65e6d 100755
--- 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