ports/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog
Josef Karthauser 311c065e90 Log::Dispatch is a suite of OO modules for logging messages to multiple
outputs, each of which can have a minimum and maximum log level.  It is
designed to be easily subclassed, both for creating a new dispatcher
object and particularly for creating new outputs.

PR:	ports/27412
2001-05-19 22:32:07 +00:00

20 lines
624 B
Text

--- Dispatch/Syslog.pm.orig Thu May 17 16:23:51 2001
+++ Dispatch/Syslog.pm Thu May 17 16:24:15 2001
@@ -45,7 +45,7 @@
$self->{ident} = $params{ident} || $0;
$self->{logopt} = $params{logopt} || '';
$self->{facility} = $params{facility} || 'user';
- $self->{socket} = $params{socket} || 'unix';
+ $self->{socket} = $params{socket} || undef;
$self->{priorities} = [ 'DEBUG',
'INFO',
@@ -56,7 +56,7 @@
'ALERT',
'EMERG' ];
- Sys::Syslog::setlogsock $self->{socket};
+ Sys::Syslog::setlogsock $self->{socket} if defined $self->{socket};
}
sub log_message