From aa23434f6c70353adb0deea1ea8a1e8016bea418 Mon Sep 17 00:00:00 2001 From: "Todd C. Miller" Date: Sun, 30 Apr 2000 04:40:43 +0000 Subject: Change 5969 by gsar@auger on 2000/04/27 17:50:56 fix Sys::Syslog breakage on domain sockets (from Tom Hughes) --- gnu/usr.bin/perl/ext/Sys/Syslog/Syslog.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gnu/usr.bin/perl') 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)) { -- cgit v1.2.3