diff options
Diffstat (limited to 'lib/syslog.pl')
| -rw-r--r-- | lib/syslog.pl | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/lib/syslog.pl b/lib/syslog.pl index a3b9edf8da..2034e0aa48 100644 --- a/lib/syslog.pl +++ b/lib/syslog.pl @@ -31,8 +31,16 @@ package syslog; $host = 'localhost' unless $host; # set $syslog'host to change +if ($] >= 5) { + warn "You should 'use Sys::Socket' instead; continuing" # if $^W +} + require 'syslog.ph'; + eval 'require Socket' || +eval { require "socket.ph" } || + require "sys/socket.ph"; + $maskpri = &LOG_UPTO(&LOG_DEBUG); sub main'openlog { @@ -141,16 +149,16 @@ sub xlate { sub connect { $pat = 'S n C4 x8'; - $af_unix = 1; - $af_inet = 2; + $af_unix = &AF_UNIX; + $af_inet = &AF_INET; - $stream = 1; - $datagram = 2; + $stream = &SOCK_STREAM; + $datagram = &SOCK_DGRAM; ($name,$aliases,$proto) = getprotobyname('udp'); $udp = $proto; - ($name,$aliase,$port,$proto) = getservbyname('syslog','udp'); + ($name,$aliases,$port,$proto) = getservbyname('syslog','udp'); $syslog = $port; if (chop($myname = `hostname`)) { |