diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-30 04:40:43 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2000-04-30 04:40:43 +0000 |
| commit | aa23434f6c70353adb0deea1ea8a1e8016bea418 (patch) | |
| tree | 937b8e7dce29084e507e627ba176520dae6b904f /gnu/usr.bin/perl | |
| parent | a6cd16baa2d4f0c72f98fe9e874dbb3abf92eedf (diff) | |
Change 5969 by gsar@auger on 2000/04/27 17:50:56
fix Sys::Syslog breakage on domain sockets (from Tom Hughes)
Diffstat (limited to 'gnu/usr.bin/perl')
| -rw-r--r-- | gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm b/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm index 2a91354e879..d109a9d8a6b 100644 --- a/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm +++ b/gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm @@ -274,7 +274,7 @@ sub connect { socket(SYSLOG,AF_INET,SOCK_DGRAM,$udp) || croak "socket: $!"; connect(SYSLOG,$that) || croak "connect: $!"; } else { - my $syslog = &_PATH_LOG || croak "_PATH_LOG not found in syslog.ph"; + my $syslog = _PATH_LOG() || croak "_PATH_LOG not found in syslog.ph"; my $that = sockaddr_un($syslog) || croak "Can't locate $syslog"; socket(SYSLOG,AF_UNIX,SOCK_STREAM,0) || croak "socket: $!"; if (!connect(SYSLOG,$that)) { |