[email protected]:16:08 t/test - Hack for VMS pipe bug.
"John E. Malmberg" <[email protected]>
| Newsgroups | gmane.comp.lang.perl.perl5.porters,gmane.comp.lang.perl.ports.vms |
|---|---|
| Message-ID | <[email protected]> |
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 [email protected] Personal Opinion Only
test.gdiff
(text/plain, 415 B)
--- /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 $_;
}