# 12..44: scary format testing from Merijn H. Brand
+if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos') {
+ foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
+ exit(0);
+}
+
use strict; # Amazed that this hackery can be made strict ...
# Just a complete test for format, including top-, left- and bottom marging
my $bm = 2; # Bottom marging (empty lines between last text and footer)
my $lm = 4; # Left margin (indent in spaces)
+select ((select (STDOUT), $| = 1)[0]);
if ($lm > 0 and !open STDOUT, "|-") { # Left margin (in this test ALWAYS set)
+ select ((select (STDOUT), $| = 1)[0]);
my $i = 12;
my $s = " " x $lm;
while (<STDIN>) {