Fix pod2man's handling of quotes in =items

private-msgid: <199702042023.WAA13143@alpha.hut.fi>

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index fdcfa73..095b520 100644 (file)
--- 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};
        }