From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 17 Mar 1996 09:38:10 +0000 (+0000)
Subject: Correct typo: Socket --> Syslog
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a6b6a6c94b931c21d2ab5c7599e2a15ac99171f;p=p5sagit%2Fp5-mst-13.2.git

Correct typo: Socket --> Syslog
---

diff --git a/lib/syslog.pl b/lib/syslog.pl
index 2034e0a..29c3a1c 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);