r164: Initial Import

2 files changed, 10 insertions, 5 deletions

diff --git a/debian/changelog b/debian/changelog
index 8f952159..83977c37 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+debhelper (1.2.28) unstable; urgency=low
+
+  * dh_link: fixed bug that prevent multiple links to the same source from
+    being made. (#23255)
+
+ -- Joey Hess <joeyh@master.debian.org>  Sun, 24 Jan 1999 19:46:33 -0800
+
 debhelper (1.2.27) unstable; urgency=low
 
   * autoscripts/*menu*: "test", not "text"!
diff --git a/dh_link b/dh_link
index 41dd736e..cc1b4954 100755
--- a/dh_link
+++ b/dh_link
@@ -31,12 +31,10 @@ foreach $PACKAGE (@{$dh{DOPACKAGES}}) {
 		error("parameters list a link without a destination.");
 	}
 
-	# Now I'd prefer to work with a hash.
-	%links=@links;
+	while (@links) {
+		$dest=pop @links;
+		$src=pop @links;
 
-	foreach $src (keys %links) {
-		$dest=$links{$src};
-				
 		# Make sure the directory the link will be in exists.
 		$basedir=Dh_Lib::dirname("$TMP/$dest");
 		if (! -e $basedir) {