From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Feb 1997 20:23:34 +0000 (+0200)
Subject: Fix pod2man's handling of quotes in =items
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6ea29bdc535e6af3948b9817129103dce3d27bba;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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};
 	}