From a7d8c50e0671052602445e1c3f0aa61f3bd2e2ef Mon Sep 17 00:00:00 2001
From: wimpunk <wimpunk@users.sf.net>
Date: Mon, 13 Sep 2010 06:31:58 +0000
Subject: [PATCH] Applied patch from ticket #8, patch for cache content leaks
 to global

git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@119 3873ddee-7413-0410-b6c4-c2c57c1ab35a
---
 ddclient | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ddclient b/ddclient
index dd7ce33..3abf561 100755
--- a/ddclient
+++ b/ddclient
@@ -865,9 +865,9 @@ sub read_cache {
 	%opt   = %saved;
 
 	foreach my $h (keys %cache) {
-	    if (exists $config{$h}) {
+	    if (exists $config->{$h}) {
 		foreach (qw(atime mtime wtime ip status)) {
-	    	    $config{$h}{$_} = $cache{$h}{$_} if exists $cache{$h}{$_};
+	    	    $config->{$h}{$_} = $cache{$h}{$_} if exists $cache{$h}{$_};
 		}
 	    }
 	}
@@ -1117,7 +1117,7 @@ sub init_config {
 	## merge options into host definitions or globals
 	if (@hosts) {
 	    foreach my $h (@hosts) {
-		$config{$h} = %{ merge(\%options, $config{$h}) };
+		$config{$h} = merge(\%options, $config{$h});
 	    }
 	    $opt{'host'} = join(',', @hosts);
 	} else {