diff options
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/pod2man.PL | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index fdcfa73fc5..095b52018d 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -829,6 +829,11 @@ while (<>) { } elsif ($Cmd eq 'item') { s/^\*( |$)/\\(bu$1/g; + # if you know how to get ":s please do + s/\\\*\(L"([^"]+?)\\\*\(R"/'$1'/g; + s/\\\*\(L"([^"]+?)""/'$1'/g; + s/[^"]""([^"]+?)""[^"]/'$1'/g; + # here do something about the $" in perlvar? print STDOUT qq{.Ip "$_" $indent\n}; print qq{.IX Item "$_"\n}; } |