Sys:Syslog

From: Beau E. Cox (beau_at_beaucox.com)
Date: 11/25/03 

Date: Mon, 24 Nov 2003 13:32:11 -1000
To: beginners@perl.org

Hi -

I'm having trouble logging to syslog on my Linux (Sorcerer)
machine with perl 8.0.2 installed. This script logs nothing:

#!/usr/bin/perl

use strict;
use warnings;
use Sys::Syslog qw(:DEFAULT setlogsock);

setlogsock('unix');
openlog($0, 'cons,pid', 'user');
syslog('err', 'test error msg');
closelog();

Removing the 'setlogsock' doesn't help; still a noop.

Writing the same thing in C using syslog(3) calls, everthing
works.

???

Aloha => Beau;