diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-08-31 05:42:31 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-08-31 13:44:58 +0000 |
| commit | 585901d452c159529f56fbe107b0f67b21ec5bbc (patch) | |
| tree | 4d206c91f166ef2e50bcde7a770c1f1c9bb944ac /ext/Sys | |
| parent | 7b7dcf5ac94bed0f662436876fc7ea3297cbf179 (diff) | |
| download | perl-585901d452c159529f56fbe107b0f67b21ec5bbc.tar.gz | |
Suppress Sys::Syslog diag msg (repost)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510708310642mee767bdk6351a590c0f32d7a@mail.gmail.com>
p4raw-id: //depot/perl@31774
Diffstat (limited to 'ext/Sys')
| -rw-r--r-- | ext/Sys/Syslog/t/00-load.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Sys/Syslog/t/00-load.t b/ext/Sys/Syslog/t/00-load.t index 188ab125d2..92dcb1512d 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'})); |