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 (file)
--- 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'}));