develooper Front page | perl.perl5.porters | Postings from March 2000

[PATCH perl-5.5.670/pod/pod2latex.PL]

Thread Previous | Thread Next
From:
Robin Barker
Date:
March 8, 2000 04:22
Subject:
[PATCH perl-5.5.670/pod/pod2latex.PL]
Message ID:
200003081222.MAA27184@tempest.npl.co.uk
Attached patch is more bandaid for errors I found in pod2latex
following my earlier patch to allow for C<<..>> stuff.

However, it appears that pod2latex has been allowed to fall 
very much behind changes in allowable pod syntax and I am
sure there are other errors to be corrected.  I suggest this
utility be discontinued from the distribution.

This would leave the way clear for a Pod::Parser-based pod2latex,
available from CPAN.

Robin

For what its worth:
--- pod/pod2latex.PL	2000/03/06 19:35:10	1.2
+++ pod/pod2latex.PL	2000/03/08 12:02:07
@@ -101,7 +101,6 @@
 # Translation of HTML escapes of various European accents might be wrong.
 
 
-$/ = "";			# record separator is blank lines
 # TeX special characters.
 ##$tt_ables = "!@*()-=+|;:'\"`,./?<>";
 $backslash_escapables = "#\$%&{}_";
@@ -128,6 +127,7 @@
 
 $cutting = 1;
 $begun = "";
+$/ = "";			# record separator is blank lines
 while (<POD>) {
     if ($cutting) {
 	next unless /^=/;
@@ -316,6 +316,8 @@
 	    } 
 	}gex;
 
+	s/X<([^<>]*)>/\\index{$1}/g;
+
 	s/Z<>/\\&/g;		# the "don't format me" thing
 
 	# comes last because not subject to reprocessing
@@ -418,7 +420,7 @@
 		}
 		print LATEX  "\n\\begin{$listingcmd}\n";
 		push(@listingcmd,$listingcmd);
-	    } elsif ($lastcmd ne 'item') {
+	    } elsif ( !@listingcmd ) { 
 		warn "Illegal '=item' command without preceding 'over':";
 		warn "=item $bareitem";
 	    }

-- 
Robin Barker                        | Eail:  Robin.Barker@npl.co.uk
CISE, Building 10,                  | Phone: +44 (0) 20 8943 7090
National Physical Laboratory,       | Fax:   +44 (0) 20 8977 7091
Teddington, Middlesex, UK. TW11 OLW | WWW:   http://www.npl.co.uk

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About