Beau E. Cox wrote:
> 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.
what machine are you running this with? how do you verify that nothing is
printed? i have no problem doing the following:
#!/usr/bin/perl -w
use strict;
use Sys::Syslog;
openlog($0 => pid => 'user');
syslog('err','test error message');
closelog();
__END__
david
--
s,.*,<<,e,y,\n,,d,y,.s,10,,s
.ss.s.s...s.s....ss.....s.ss
s.sssss.sssss...s...s..s....
...s.ss..s.sss..ss.s....ss.s
s.sssss.s.ssss..ss.s....ss.s
..s..sss.sssss.ss.sss..ssss.
..sss....s.s....ss.s....ss.s
,....{4},"|?{*=}_'y!'+0!$&;"
,ge,y,!#:$_(-*[./<[EMAIL PROTECTED],b-t,
.y...,$~=q~=?,;^_#+?{~,,$~=~
y.!-&*-/:[EMAIL PROTECTED] ().;s,;,
);,g,s,s,$~s,g,y,y,%,,g,eval
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
