From 31a6b97baf020c0bad249a47072694cd7bf3a7dd Mon Sep 17 00:00:00 2001
From: joey <joey>
Date: Tue, 17 Aug 1999 05:08:37 +0000
Subject: r164: Initial Import

---
 dh_link | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'dh_link')

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) {
-- 
cgit v1.2.3