diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-17 09:38:10 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-17 09:38:10 +0000 |
| commit | 4a6b6a6c94b931c21d2ab5c7599e2a15ac99171f (patch) | |
| tree | 4b11d052c356031502bccd72521bc2efebfa2a5e /lib/syslog.pl | |
| parent | 4fc7577ba39ac92e91c6838581448a6ba5ddf896 (diff) | |
| download | perl-4a6b6a6c94b931c21d2ab5c7599e2a15ac99171f.tar.gz | |
Correct typo: Socket --> Syslog
Diffstat (limited to 'lib/syslog.pl')
| -rw-r--r-- | lib/syslog.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/syslog.pl b/lib/syslog.pl index 2034e0aa48..29c3a1cc9a 100644 --- a/lib/syslog.pl +++ b/lib/syslog.pl @@ -32,14 +32,14 @@ package syslog; $host = 'localhost' unless $host; # set $syslog'host to change if ($] >= 5) { - warn "You should 'use Sys::Socket' instead; continuing" # if $^W + warn "You should 'use Sys::Syslog' instead; continuing" # if $^W } require 'syslog.ph'; - eval 'require Socket' || -eval { require "socket.ph" } || - require "sys/socket.ph"; + eval 'use Socket' || + eval { require "socket.ph" } || + require "sys/socket.ph"; $maskpri = &LOG_UPTO(&LOG_DEBUG); |