diff options
| author | Peter J. Farley III <pjfarley@banet.net> | 2000-11-05 06:55:59 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-05 17:32:59 +0000 |
| commit | 1b31946bedf89413584e457a8054ef8e0842e835 (patch) | |
| tree | f62b1d90d13f2a7095dd2e8c50cc0c92eabf1691 /t/lib/syslog.t | |
| parent | 97a6b00fd82afa575f453f7c2015cf500808e30d (diff) | |
| download | perl-1b31946bedf89413584e457a8054ef8e0842e835.tar.gz | |
[Corrected/tested PATCH] Re: [ID 20001102.008] Not OK: perl v5.7.0 +DEVEL7503 on i686-linux 2.2.16
Message-Id: <4.3.1.0.20001105115341.00b35160@pop5.banet.net>
p4raw-id: //depot/perl@7559
Diffstat (limited to 't/lib/syslog.t')
| -rwxr-xr-x | t/lib/syslog.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/lib/syslog.t b/t/lib/syslog.t index d73e973b39..05d8b22f4b 100755 --- a/t/lib/syslog.t +++ b/t/lib/syslog.t @@ -8,6 +8,18 @@ BEGIN { print "1..0 # Skip: Sys::Syslog was not built\n"; exit 0; } + + require Socket; + + # This code inspired by Sys::Syslog::connect(): + require Sys::Hostname; + my ($host_uniq) = Sys::Hostname::hostname(); + my ($host) = $host_uniq =~ /([A-Za-z0-9_.-]+)/; + + if (! defined Socket::inet_aton($host)) { + print "1..0 # Skip: Can't lookup $host\n"; + exit 0; + } } use Sys::Syslog qw(:DEFAULT setlogsock); |