From 79b845498ac4420eb6f422137e0b428ec841270e Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Sun, 22 Sep 2002 15:36:23 +0000
Subject: r551:    * Make addsubstvars remove old instances of line before
 adding new. This      will make dh_perl get deps right for packages that have
 perl modules and      XS in them.

---
 Debian/Debhelper/Dh_Lib.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Debian/Debhelper')

diff --git a/Debian/Debhelper/Dh_Lib.pm b/Debian/Debhelper/Dh_Lib.pm
index e2d26b25..3b7a5192 100644
--- a/Debian/Debhelper/Dh_Lib.pm
+++ b/Debian/Debhelper/Dh_Lib.pm
@@ -439,7 +439,8 @@ sub addsubstvar {
 	}
 
 	if (length $line) {
-		 complex_doit("echo '${substvar}=$line' >> $substvarfile");
+		 complex_doit("(grep -v ${substvar} $substvarfile 2>/dev/null; echo '${substvar}=$line') > $substvarfile.new");
+		 doit("mv", "$substvarfile.new", $substvarfile);
 	}
 }
 
-- 
cgit v1.2.3