Correct typo: Socket --> Syslog
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sun, 17 Mar 1996 09:38:10 +0000 (09:38 +0000)
committerCharles Bailey <bailey@genetics.upenn.edu>
Sun, 17 Mar 1996 09:38:10 +0000 (09:38 +0000)
lib/syslog.pl

index 2034e0a..29c3a1c 100644 (file)
@@ -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);