From: Craig A. Berry Date: Fri, 16 Nov 2007 23:47:45 +0000 (+0000) Subject: Silence ill-behaved Test::Harness test on VMS. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6bd64befac89b7a9e5c64e27d303b7efa159e476;p=p5sagit%2Fp5-mst-13.2.git Silence ill-behaved Test::Harness test on VMS. p4raw-id: //depot/perl@32353 --- diff --git a/lib/Test/Harness/t/failure.t b/lib/Test/Harness/t/failure.t index 9505532..76d8dc9 100644 --- a/lib/Test/Harness/t/failure.t +++ b/lib/Test/Harness/t/failure.t @@ -1,6 +1,13 @@ #!/usr/bin/perl -w BEGIN { + if ($^O eq 'VMS') { + print '1..0 # Child test output confuses parent test counter'; + exit; + } +} + +BEGIN { if ( $ENV{PERL_CORE} ) { chdir 't'; @INC = ('../lib', 'lib');