New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
pod2man doesn't handle multiple =over's very well #665
Comments
From fenner@research.att.comHi, pod2man doesn't handle multiple =over's very well; it keeps the =item SNMP::Varbind ..text =over =item <obj> ..text =over =item 1 ..text produces: SNMP::Varbind <obj> one of the following forms: 1) leaf identifier (e.g., 'sysDescr') assumed I find this extremely hard to read, so I changed it to use the SNMP::Varbind <obj> 1) leaf identifier (e.g., 'sysDescr') assumed I find this to be much more readable. It's a little hokey, Bill Inline Patch--- /usr/bin/pod2man Wed Sep 8 00:32:02 1999
+++ /tmp/pod2man Thu Sep 30 18:18:01 1999
@@ -877,10 +877,16 @@
elsif ($Cmd eq 'over') {
push(@indent,$indent);
$indent += ($_ + 0) || 5;
+ if ($#indent > 0) {
+ print ".RS ", $indent[$#indent] - $indent[$#indent - 1], "\n";
+ }
}
elsif ($Cmd eq 'back') {
$indent = pop(@indent);
warn "$0: Unmatched =back in paragraph $. of $ARGV\n" unless defined $indent;
+ if ($#indent >= 0) {
+ print ".RE\n";
+ }
$needspace = 1;
}
elsif ($Cmd eq 'item') {
@@ -890,7 +896,7 @@
s/\\\*\(L"([^"]+?)""/'$1'/g;
s/[^"]""([^"]+?)""[^"]/'$1'/g;
# here do something about the $" in perlvar?
- print STDOUT qq{.Ip "$_" $indent\n};
+ print STDOUT qq{.Ip "$_" $indent-$indent[$#indent]\n};
push(@Indices, qq{.IX Item "$_"\n});
}
elsif ($Cmd eq 'pod') { Perl Info
|
From [Unknown Contact. See original ticket]Bill Fenner <fenner@research.att.com> writes:
This has been fixed in my proposed replacement for pod2man. If you want -- |
Migrated from rt.perl.org#1545 (status was 'resolved')
Searchable as RT1545$
The text was updated successfully, but these errors were encountered: