From owner-freebsd-stable  Mon Oct 21  3:44:59 2002
Delivered-To: freebsd-stable@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id F0A6A37B401
	for <freebsd-stable@freebsd.org>; Mon, 21 Oct 2002 03:44:57 -0700 (PDT)
Received: from rip.psg.com (rip.psg.com [147.28.0.39])
	by mx1.FreeBSD.org (Postfix) with ESMTP id AA3F743E6A
	for <freebsd-stable@freebsd.org>; Mon, 21 Oct 2002 03:44:57 -0700 (PDT)
	(envelope-from randy@psg.com)
Received: from localhost ([127.0.0.1] helo=rip.psg.com.psg.com)
	by rip.psg.com with esmtp (Exim 4.10)
	id 183a3M-0000kD-00; Mon, 21 Oct 2002 03:44:56 -0700
From: Randy Bush <randy@psg.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Ceri Davies <setantae@submonkey.net>
Cc: Simon Dick <simond@irrelevant.org>,
	FreeBSD Stable <freebsd-stable@freebsd.org>
Subject: Re: Syslog.pm Cannot get host name of local machine
References: <E183ZhI-0000E4-00@rip.psg.com>
	<1035196522.1771.12.camel@linux>
	<20021021104053.GA41043@submonkey.net>
Message-Id: <E183a3M-0000kD-00@rip.psg.com>
Date: Mon, 21 Oct 2002 03:44:56 -0700
Sender: owner-freebsd-stable@FreeBSD.ORG
Precedence: bulk
List-ID: <freebsd-stable.FreeBSD.ORG>
List-Archive: <http://docs.freebsd.org/mail/> (Web Archive)
List-Help: <mailto:majordomo@FreeBSD.ORG?subject=help> (List Instructions)
List-Subscribe: <mailto:majordomo@FreeBSD.ORG?subject=subscribe%20freebsd-stable>
List-Unsubscribe: <mailto:majordomo@FreeBSD.ORG?subject=unsubscribe%20freebsd-stable>
X-Loop: FreeBSD.ORG

> Could I see your patch to Syslog.pm please ?

if you promise not to puke

*** /usr/libdata/perl/5.00503/Sys/Syslog.pm~    Mon Oct 21 03:17:14 2002
--- /usr/libdata/perl/5.00503/Sys/Syslog.pm     Mon Oct 21 03:41:18 2002
***************
*** 245,251 ****
  sub connect {
      unless ($host) {
        require Sys::Hostname;
!       my($host_uniq) = Sys::Hostname::hostname();
        ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _)
      }
      unless ( $sock_type ) {
--- 245,252 ----
  sub connect {
      unless ($host) {
        require Sys::Hostname;
! #     my($host_uniq) = Sys::Hostname::hostname();
!       my($host_uniq) = `hostname`;
        ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; # allow FQDN (inc _)
      }
      unless ( $sock_type ) {


To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-stable" in the body of the message