From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 31 Dec 2003 15:22:31 +0000 (+0000)
Subject: Tweak 00compile.t to avoid splatting a DIAG over core perl's
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=220db1528aef71e82b253e5f59221565a15f8768;p=p5sagit%2Fp5-mst-13.2.git

Tweak 00compile.t to avoid splatting a DIAG over core perl's
beautiful clean run of OKs. You are all getting a clean run of OKs,
aren't you?

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

diff --git a/lib/Test/Harness/t/00compile.t b/lib/Test/Harness/t/00compile.t
index 1f83bf6..5c333b3 100644
--- a/lib/Test/Harness/t/00compile.t
+++ b/lib/Test/Harness/t/00compile.t
@@ -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' }