From 91b8c0c1c3c6bed0407734c444161f89a2411f99 Mon Sep 17 00:00:00 2001
From: joeyh <joeyh>
Date: Sat, 18 Aug 2007 00:42:06 +0000
Subject: r2020: * dh_link: Skip self-links. Closes: #438572

---
 dh_link | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'dh_link')

diff --git a/dh_link b/dh_link
index f7a910a5..84e6ba35 100755
--- a/dh_link
+++ b/dh_link
@@ -166,6 +166,11 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 
 		$src=~s:^/::;
 		$dest=~s:^/::;
+		
+		if ($src eq $dest) {
+			warning("skipping link from $src to self");
+			next;
+		}
 
 		# Make sure the directory the link will be in exists.
 		my $basedir=dirname("$tmp/$dest");
@@ -182,7 +187,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 		    	# Figure out how much of a path $src and $dest
 			# share in common.
 			my $x;
-			for ($x=0; $x<@src_dirs && $src_dirs[$x] eq $dest_dirs[$x]; $x++) {}
+			for ($x=0; $x < @src_dirs && $src_dirs[$x] eq $dest_dirs[$x]; $x++) {}
 			# Build up the new src.
 			$src="";
 			for (1..$#dest_dirs - $x) {
-- 
cgit v1.2.3