r164: Initial Import

diff --git a/debian/changelog b/debian/changelog
index 8f952159051f6e16cb25e53e65d978678d210e5b..83977c37b363e8f6f8384564ebc5bfd12b6da2f0 100644 (file)
--- 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 41dd736e4d60e468b1fd3cfcc651a43c51d8c270..cc1b49545a23d25c3a40d6823e4b3a4a3d72cf11 100755 (executable)
--- 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) {