diff options
| author | Kurt D. Starsinic <kstar@wolfetech.com> | 2000-10-23 12:40:54 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-24 13:32:09 +0000 |
| commit | 48f7ee7a00a9cc3c53df2208f08bd3848df9a5b5 (patch) | |
| tree | 33f5d69cb05f897f509d7147eedb8a3f731fe410 /t | |
| parent | 3f73c567164db9605beed3eab753334d048d0906 (diff) | |
| download | perl-48f7ee7a00a9cc3c53df2208f08bd3848df9a5b5.tar.gz | |
(Replaced by #7440.)
Subject: Re: [ID 20001022.001] Not OK: perl v5.7.0 +DEVEL7368 on i686-linux 2.2.16
Message-ID: <20001023164054.B14491@O2.chapin.edu>
p4raw-id: //depot/perl@7421
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/syslog.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/syslog.t b/t/lib/syslog.t index 7ad4204ee0..14f789a58d 100755 --- a/t/lib/syslog.t +++ b/t/lib/syslog.t @@ -14,7 +14,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock); print "1..6\n"; -if (Sys::Syslog::_PATH_LOG()) { +if (Sys::Syslog::_PATH_LOG() and -e Sys::Syslog::_PATH_LOG()) { print defined(eval { setlogsock('unix') }) ? "ok 1\n" : "not ok 1\n"; print defined(eval { openlog('perl', 'ndelay', 'local0') }) ? "ok 2\n" : "not ok 2\n"; print defined(eval { syslog('info', 'test') }) ? "ok 3\n" : "not ok 3\n"; |