From: Kurt D. Starsinic <kstar@wolfetech.com>
Date: Mon, 23 Oct 2000 16:40:54 +0000 (-0400)
Subject: (Replaced by #7440.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48f7ee7a00a9cc3c53df2208f08bd3848df9a5b5;p=p5sagit%2Fp5-mst-13.2.git

(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
--- 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";