summaryrefslogtreecommitdiff
path: root/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog
blob: f325bc9702511b28d6c106f6b19502b351c45281 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
$FreeBSD$

--- lib/Log/Dispatch/Syslog.pm.orig	Sat Jun 22 01:10:31 2002
+++ lib/Log/Dispatch/Syslog.pm	Mon Jul  1 06:23:54 2002
@@ -46,7 +46,7 @@
 			    facility => { type => SCALAR,
 					  default => 'user' },
 			    socket   => { type => SCALAR,
-					  default => 'unix' },
+					  default => undef },
 			  } );
 
     $self->{ident}    = $p{ident};
@@ -63,7 +63,7 @@
 			    'ALERT',
 			    'EMERG' ];
 
-    Sys::Syslog::setlogsock $self->{socket};
+    Sys::Syslog::setlogsock $self->{socket} if defined $self->{socket};
 }
 
 sub log_message