ports/devel/p5-Log-Dispatch/files/patch-broken-perl-syslog
2002-07-01 04:51:07 +00:00

22 lines
538 B
Text

$FreeBSD$
--- Dispatch/Syslog.pm.orig Sat Jun 22 01:10:31 2002
+++ 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