Date: Mon, 21 Oct 2002 11:48:31 +0100 From: Ceri Davies <setantae@submonkey.net> To: Randy Bush <randy@psg.com> Cc: Simon Dick <simond@irrelevant.org>, FreeBSD Stable <freebsd-stable@freebsd.org> Subject: Re: Syslog.pm Cannot get host name of local machine Message-ID: <20021021104831.GB41131@submonkey.net> In-Reply-To: <E183a3M-0000kD-00@rip.psg.com> References: <E183ZhI-0000E4-00@rip.psg.com> <1035196522.1771.12.camel@linux> <20021021104053.GA41043@submonkey.net> <E183a3M-0000kD-00@rip.psg.com>
next in thread | previous in thread | raw e-mail | index | archive | help
On Mon, Oct 21, 2002 at 03:44:56AM -0700, Randy Bush wrote:
> > Could I see your patch to Syslog.pm please ?
>
> if you promise not to puke
;^) As long as I can get spamd working again, I don't care how crappy
the code is.
> *** /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 ) {
That'll do pig, that'll do.
Ceri
--
you can't see when light's so strong
you can't see when light is gone
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-stable" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20021021104831.GB41131>