This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak 00compile.t to avoid splatting a DIAG over core perl's
authorNicholas Clark <nick@ccl4.org>
Wed, 31 Dec 2003 15:22:31 +0000 (15:22 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 31 Dec 2003 15:22:31 +0000 (15:22 +0000)
beautiful clean run of OKs. You are all getting a clean run of OKs,
aren't you?

p4raw-id: //depot/perl@22026

lib/Test/Harness/t/00compile.t

index 1f83bf6..5c333b3 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
 use Test::More tests => 5;
 
 BEGIN { use_ok 'Test::Harness' }
-BEGIN { diag( "Testing Test::Harness $Test::Harness::VERSION" ) }
+BEGIN { diag( "Testing Test::Harness $Test::Harness::VERSION" ) unless $ENV{PERL_CORE}}
 
 BEGIN { use_ok 'Test::Harness::Straps' }