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 (file)
--- 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');