(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

diff --git a/t/lib/syslog.t b/t/lib/syslog.t
index 7ad4204..14f789a 100755 (executable)
--- 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";