diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 17:50:56 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 17:50:56 +0000 |
| commit | 34b7e82b7f7d95b7207ac8f43025705af5f1aca0 (patch) | |
| tree | 15103c4faec1b9dd0f07ac1bb8cada155833ca22 /ext | |
| parent | 27b4d0f88e7fc713240ac8177227c667833a7ab0 (diff) | |
| download | perl-34b7e82b7f7d95b7207ac8f43025705af5f1aca0.tar.gz | |
fix Sys::Syslog breakage on domain sockets (from Tom Hughes)
p4raw-id: //depot/perl@5969
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Sys/Syslog/Syslog.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Sys/Syslog/Syslog.pm b/ext/Sys/Syslog/Syslog.pm index 2a91354e87..d109a9d8a6 100644 --- a/ext/Sys/Syslog/Syslog.pm +++ b/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)) { |