--- scripts/dkimproxy.out.orig	2010-11-15 16:54:28 UTC
+++ scripts/dkimproxy.out
@@ -314,17 +314,11 @@ sub process_request
 {
 	my $self = shift;
 
-	# try to determine peer's address
-	use Socket;
-	my $peersockaddr = getpeername(STDOUT);
-	my ($port, $iaddr) = sockaddr_in($peersockaddr);
-	$ENV{REMOTE_ADDR} = inet_ntoa($iaddr);
-
 	# initialize syslog
 	eval
 	{
 		openlog("dkimproxy.out", "perror,pid,ndelay", "mail");
-		syslog("debug", '%s', "connect from $ENV{REMOTE_ADDR}");
+		syslog("debug", '%s', "connect from $self->{server}->{peeraddr}");
 	};
 	if (my $E = $@)
 	{