From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 16 Nov 2007 23:47:45 +0000 (+0000)
Subject: Silence ill-behaved Test::Harness test on VMS.
X-Git-Tag: accepted/trunk/20130322.191538~14191
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6bd64befac89b7a9e5c64e27d303b7efa159e476;p=platform%2Fupstream%2Fperl.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');