From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Fri, 31 Aug 2007 09:42:31 +0000 (-0400)
Subject: Suppress Sys::Syslog diag msg (repost)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=585901d452c159529f56fbe107b0f67b21ec5bbc;p=p5sagit%2Fp5-mst-13.2.git

Suppress Sys::Syslog diag msg (repost)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510708310642mee767bdk6351a590c0f32d7a@mail.gmail.com>

p4raw-id: //depot/perl@31774
---

diff --git a/ext/Sys/Syslog/t/00-load.t b/ext/Sys/Syslog/t/00-load.t
index 188ab12..92dcb15 100644
--- a/ext/Sys/Syslog/t/00-load.t
+++ b/ext/Sys/Syslog/t/00-load.t
@@ -6,4 +6,5 @@ BEGIN {
 	use_ok( 'Sys::Syslog' );
 }
 
-diag( "Testing Sys::Syslog $Sys::Syslog::VERSION, Perl $], $^X" );
+diag( "Testing Sys::Syslog $Sys::Syslog::VERSION, Perl $], $^X" )
+    if (! exists($ENV{'PERL_CORE'}));