aboutsummaryrefslogtreecommitdiff
path: root/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog
diff options
context:
space:
mode:
Diffstat (limited to 'devel/p5-Log-Dispatch/files/patch-broken-perl-syslog')
-rw-r--r--devel/p5-Log-Dispatch/files/patch-broken-perl-syslog20
1 files changed, 20 insertions, 0 deletions
diff --git a/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog b/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog
new file mode 100644
index 000000000000..ae1d37f69777
--- /dev/null
+++ b/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog
@@ -0,0 +1,20 @@
+--- 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