From 48f7ee7a00a9cc3c53df2208f08bd3848df9a5b5 Mon Sep 17 00:00:00 2001 From: "Kurt D. Starsinic" Date: Mon, 23 Oct 2000 12:40:54 -0400 Subject: [PATCH] (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 --- t/lib/syslog.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/lib/syslog.t b/t/lib/syslog.t index 7ad4204..14f789a 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"; -- 2.7.4