From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Tue, 18 Jun 1996 07:30:13 +0000 (+0000)
Subject: perl 5.003_01: lib/Sys/Syslog.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2eae817dd870472497ae7c14ef66b9d278e970c1;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003_01: lib/Sys/Syslog.pm

Correct documentation for calling sequence of syslog() function
Move call to hostname() into connect() function, and eliminate domain suffix
---

diff --git a/lib/Sys/Syslog.pm b/lib/Sys/Syslog.pm
index f02a2b5..9df3161 100644
--- a/lib/Sys/Syslog.pm
+++ b/lib/Sys/Syslog.pm
@@ -23,7 +23,7 @@ Sys::Syslog, openlog, closelog, setlogmask, syslog - Perl interface to the UNIX
     use Sys::Syslog;
 
     openlog $ident, $logopt, $facility;
-    syslog $priority, $mask, $format, @args;
+    syslog $priority, $format, @args;
     $oldmask = setlogmask $mask_priority;
     closelog;
 
@@ -43,9 +43,9 @@ I<$ident> is prepended to every message.
 I<$logopt> contains one or more of the words I<pid>, I<ndelay>, I<cons>, I<nowait>.
 I<$facility> specifies the part of the system
 
-=item syslog $priority, $mask, $format, @args
+=item syslog $priority, $format, @args
 
-If I<$priority> and I<$mask> permit, logs I<($format, @args)>
+If I<$priority> permits, logs I<($format, @args)>
 printed as by C<printf(3V)>, with the addition that I<%m>
 is replaced with C<"$!"> (the latest error message).
 
@@ -89,8 +89,6 @@ Tom Christiansen E<lt>F<tchrist@perl.com>E<gt> and Larry Wall E<lt>F<lwall@sems.
 
 =cut
 
-$host = hostname() unless $host;	# set $Syslog::host to change
-
 require 'syslog.ph';
 
 $maskpri = &LOG_UPTO(&LOG_DEBUG);
@@ -201,7 +199,8 @@ sub xlate {
 sub connect {
     unless ($host) {
 	require Sys::Hostname;
-	$host = Sys::Hostname::hostname();
+	my($host_uniq) = Sys::Hostname::hostname();
+	($host) = $host_uniq =~ /(\w+)/;
     }
     my $udp = getprotobyname('udp');
     my $syslog = getservbyname('syslog','udp');