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 (executable)
--- 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 $_;
            }