# Patch output of man2html translation of manual page
# to fix infelicitous results.
# Copies Perl standard input (<>) to standard output;
# redirect as appropriate.
$state = 0; # Waiting for start of HTML
while ($l = <>) {
$l =~ s/\s*$//;
if ($state == 0) {
if (!($l =~ m//)) {
next;
}
$state = 1;
}
if ($l =~ m--) {
}
if ($l =~ m/>Return to Main Contents';
}
if ($l =~ m-[^<]*
-) {
$l = "$l";
}
if ($l =~ m=/cgi-bin/man/man2html=) {
$l =~ s/]*>//;
$l =~ s---;
}
if ($l =~ m--) {
$l =~ s///;
}
if ($l =~ m--) {
print("\n");
print("\n");
print("\n");
}
$l =~ s/ / /g;
print("$l\n");
# Post line output processing
if ($l =~ m--) {
print << "EOF";
EOF
}
if ($l =~ m/\n");
}
}