From: John E. Malmberg <wb8tyw@qsl.net>
Date: Mon, 27 Apr 2009 02:00:25 +0000 (-0500)
Subject: t/test - Hack for VMS pipe bug.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=615b7a35f0cbe45b40f04ee2c44ea5417830bc4d;p=p5sagit%2Fp5-mst-13.2.git

t/test - Hack for VMS pipe bug.

The VMS pipe bug inserts blank lines in places that can prevent the
leader from being seen.

So on the leader line, read in the rest of the line.
---

diff --git a/t/TEST b/t/TEST
index bc790fd..4e86fd0 100755
--- a/t/TEST
+++ b/t/TEST
@@ -338,6 +338,14 @@ EOT
 	my %todo;
 	while (<RESULTS>) {
 	    next if /^\s*$/; # skip blank lines
+	    if (/^1..$/ && ($^O eq 'VMS')) {
+		# VMS pipe bug inserts blank lines.
+		my $l2 = <RESULTS>;
+		if ($l2 =~ /^\s*$/) {
+		    $l2 = <RESULTS>;
+		}
+		$_ = '1..' . $l2;
+	    }
 	    if ($::verbose) {
 		print $_;
 	    }