This is patch.2b1f to perl5.002beta1.

cd to your perl source directory, execute the command above, and type
	patch -p1 -N < patch.2b1f

This patch includes patches for the following items:
	Changes.Conf
	Configure
	MANIFEST
	Makefile.SH
	XSUB.h
	ext/POSIX/POSIX.pm
	ext/POSIX/POSIX.pod
	ext/POSIX/POSIX.xs
	ext/Socket/Socket.pm
	gv.c
	lib/Cwd.pm
	lib/Sys/Syslog.pm
	lib/diagnostics.pm
	t/lib/socket.t
	toke.c
The changes are described after each /^Index/ line below.


These are each described in detail below, after the corresponding
index line.

Patch and enjoy,

    Andy Dougherty		doughera@lafcol.lafayette.edu
    Dept. of Physics
    Lafayette College, Easton PA 18042

1 files changed, 9 insertions, 6 deletions

diff --git a/lib/Sys/Syslog.pm b/lib/Sys/Syslog.pm
index 0a0d25eb9b..671da9f996 100644
--- a/lib/Sys/Syslog.pm
+++ b/lib/Sys/Syslog.pm
@@ -6,6 +6,9 @@ use Carp;
 @ISA = qw(Exporter);
 @EXPORT = qw(openlog closelog setlogmask syslog);
 
+use Socket;
+use Sys::Hostname;
+
 #
 # syslog.pl
 #
@@ -34,7 +37,7 @@ use Carp;
 #	$! = 55;
 #	syslog('info','problem was %m'); # %m == $! in syslog(3)
 
-$host = 'localhost' unless $host;	# set $Syslog::host to change
+$host = hostname() unless $host;	# set $Syslog::host to change
 
 require 'syslog.ph';
 
@@ -146,11 +149,11 @@ sub xlate {
 sub connect {
     $pat = 'S n C4 x8';
 
-    $af_unix = 1;
-    $af_inet = 2;
+    $af_unix = AF_UNIX();
+    $af_inet = AF_INET();
 
-    $stream = 1;
-    $datagram = 2;
+    $stream = SOCK_STREAM();
+    $datagram = SOCK_DGRAM();
 
     ($name,$aliases,$proto) = getprotobyname('udp');
     $udp = $proto;
@@ -158,7 +161,7 @@ sub connect {
     ($name,$aliase,$port,$proto) = getservbyname('syslog','udp');
     $syslog = $port;
 
-    if (chop($myname = `hostname`)) {
+    if ($myname = hostname()) {
 	($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($myname);
 	croak "Can't lookup $myname" unless $name;
 	@bytes = unpack("C4",$addrs[0]);