syslog to localhost with controlchan

[Katsuhiro Kondou]

In article <87u13ic39f.fsf at windlord.stanford.edu>,
	Russ Allbery <rra at stanford.edu> wrote;

} I wonder if calling:
} 
}     setlogsock [ 'unix', 'stream', 'tcp', 'udp', 'console' ];
} 
} would do what we want, and if that's portable back to the oldest version
} of Perl that we care about....  No, it looks like the array form was added
} in 5.8.0.  Hm.  We could try using that only with recent versions of Perl,
} since OS X seems to have a pretty current one.

Ah, this reminds me effective patch only for OS X, and
this works fine.

Index: control/controlchan.in
===================================================================
RCS file: /Users/kondou/news/inn/repository/inn/control/controlchan.in,v
retrieving revision 1.7
diff -u -r1.7 controlchan.in
--- controlchan.in	2002/11/21 00:03:15	1.7
+++ controlchan.in	2004/01/01 17:52:19
@@ -50,7 +50,7 @@
 
 if ($use_syslog) {
     eval "sub Sys::Syslog::_PATH_LOG { '/dev/log' }" if $^O eq 'dec_osf';
-    Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf/;
+    Sys::Syslog::setlogsock('unix') if $^O =~ /linux|dec_osf|darwin/;
     openlog('controlchan', 'pid', $inn::syslog_facility);
 }
 logmsg('starting');

But, I wonder if any unix system whose syslog does not
utilize unix domain socket.  In another words, cannot
any unix system use "Sys::Syslog::setlogsock('unix')"?
-- 
Katsuhiro Kondou