| @@ -0,0 +1,57 @@
+diff -Naur ../httpd-2.2.4.orig/support/logresolve.pl.in ./support/logresolve.pl.in
+--- ../httpd-2.2.4.orig/support/logresolve.pl.in 2006-07-12 05:38:44.000000000 +0200
++++ ./support/logresolve.pl.in 2007-10-23 13:59:27.000000000 +0200
+@@ -57,6 +57,7 @@
+
+ use FileHandle;
+ use Socket;
++use File::Temp;
+
+ use strict;
+ no strict 'refs';
+@@ -71,11 +72,13 @@
+ my %hash = ();
+ my $parent = $$;
+
++my $tempdir = File::Temp::tempdir("logresolve.pl2.sockets.XXXXXX", CLEANUP => 1);
++
+ my @children = ();
+ for (my $child = 1; $child <=$CHILDREN; $child++) {
+ my $f = fork();
+ if (!$f) {
+- $filename = "./.socket.$parent.$child";
++ $filename = "$tempdir/socket.$parent.$child";
+ if (-e $filename) { unlink($filename) || warn "$filename .. $!\n";}
+ &child($child);
+ exit(0);
+@@ -91,9 +94,9 @@
+ # die kiddies, die
+ kill(15, @children);
+ for (my $child = 1; $child <=$CHILDREN; $child++) {
+- if (-e "./.socket.$parent.$child") {
+- unlink("./.socket.$parent.$child")
+- || warn ".socket.$parent.$child $!";
++ if (-e "$tempdir/socket.$parent.$child") {
++ unlink("$tempdir/socket.$parent.$child")
++ || warn "$tempdir/socket.$parent.$child $!";
+ }
+ }
+ }
+@@ -113,7 +116,7 @@
+ if (!socket($CHILDSOCK{$child}, AF_UNIX, SOCK_STREAM, $PROTOCOL)) {
+ warn "parent socket to child failed $!";
+ }
+- $filename = "./.socket.$parent.$child";
++ $filename = "$tempdir/socket.$parent.$child";
+ my $response;
+ do {
+ $response = connect($CHILDSOCK{$child}, sockaddr_un($filename));
+@@ -176,7 +179,7 @@
+ # create a socket to communicate with parent
+ socket(INBOUND, AF_UNIX, SOCK_STREAM, $PROTOCOL)
+ || die "Error with Socket: !$\n";
+- $filename = "./.socket.$parent.$me";
++ $filename = "$tempdir/socket.$parent.$me";
+ bind(INBOUND, sockaddr_un($filename))
+ || die "Error Binding $filename: $!\n";
+ listen(INBOUND, 5) || die "Error Listening: $!\n";
|
