r164: Initial Import

1 files changed, 3 insertions, 5 deletions

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) {