Change 31774: [PATCH] Suppress Sys::Syslog diag msg (repost)

[Rafael Garcia-Suarez]

Change 31774 by [EMAIL PROTECTED] on 2007/08/31 13:44:58

        Subject: [PATCH] Suppress Sys::Syslog diag msg (repost)
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Fri, 31 Aug 2007 09:42:31 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/Sys/Syslog/t/00-load.t#4 edit

Differences ...

==== //depot/perl/ext/Sys/Syslog/t/00-load.t#4 (text) ====
Index: perl/ext/Sys/Syslog/t/00-load.t
--- perl/ext/Sys/Syslog/t/00-load.t#3~31750~    2007-08-23 08:15:07.000000000 
-0700
+++ perl/ext/Sys/Syslog/t/00-load.t     2007-08-31 06:44:58.000000000 -0700
@@ -6,4 +6,5 @@
        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'}));
End of Patch.