diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1997-02-04 22:23:34 +0200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-11 07:29:00 +1200 |
| commit | 6ea29bdc535e6af3948b9817129103dce3d27bba (patch) | |
| tree | 6e551d3a32d866d78e3dda9302d4c115fd37c2ea /pod/pod2man.PL | |
| parent | 31bdbec1d6f429e8532f3bb66cddf8b47418f4fa (diff) | |
| download | perl-6ea29bdc535e6af3948b9817129103dce3d27bba.tar.gz | |
Fix pod2man's handling of quotes in =items
private-msgid: <199702042023.WAA13143@alpha.hut.fi>
Diffstat (limited to 'pod/pod2man.PL')
| -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}; } |