develooper Front page | perl.perl5.porters | Postings from April 2000

[PATCH 5.6.0] Sys::Syslog fix

Thread Next
From:
Tom Hughes
Date:
April 5, 2000 15:56
Subject:
[PATCH 5.6.0] Sys::Syslog fix
Message ID:
f214b2aa49.tom@compton.compton.nu
As pointed put on c.l.p.m the tweaks to Sys::Syslog in 5.6.0 have
broken logging to unix domain sockets, witness this example:

  #!/usr/bin/perl -w

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

  setlogsock('unix');
  openlog("testing",'ndelay',"local5");
  syslog("WARNING","testing");

The problem is that the line which invokes _PATH_LOG has a precedence
error and winds up passing an unexpected argument to the function.

The attached patch fixes the error and adds some basic tests for
the Sys::Syslog module.

Tom

-- 
Tom Hughes (tom@compton.nu)
http://www.compton.nu/
...Put your brain in gear before starting your mouth.

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About