blead@09-04-25.23:16:08 t/test - Hack for VMS pipe bug.

[John E. Malmberg]

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.
Related VMS TODO:  The VMS/test.com procedure is passing an uppercase 
path specification instead of exact case or forced to lowercase.

This can cause the t/test. to incorrectly issue the diagnostic:
"FAILED--unexpected output at test $next" at times on VMS.

-John
wb8...@qsl.net
Personal Opinion Only
--- /rsync_root/perl/t/TEST     Wed Mar 25 12:50:09 2009
+++ t/TEST      Sun Apr 26 20:38:43 2009
@@ -338,6 +338,14 @@
        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 $_;
            }