This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4fc7577
)
Correct typo: Socket --> Syslog
author
Perl 5 Porters
<perl5-porters@africa.nicoh.com>
Sun, 17 Mar 1996 09:38:10 +0000
(09:38 +0000)
committer
Charles Bailey
<bailey@genetics.upenn.edu>
Sun, 17 Mar 1996 09:38:10 +0000
(09:38 +0000)
lib/syslog.pl
patch
|
blob
|
blame
|
history
diff --git
a/lib/syslog.pl
b/lib/syslog.pl
index
2034e0a
..
29c3a1c
100644
(file)
--- 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::S
ocket
' instead; continuing" # if $^W
+ warn "You should 'use Sys::S
yslog
' 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);