Remove cpan/Pod-LaTeX and pod2latex utility
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 18 May 2013 12:20:02 +0000 (13:20 +0100)
committerRicardo Signes <rjbs@cpan.org>
Sat, 18 May 2013 19:24:51 +0000 (15:24 -0400)
17 files changed:
INSTALL
MANIFEST
NetWare/Makefile
Porting/Maintainers.pl
configure.com
cpan/Pod-LaTeX/.gitignore [deleted file]
cpan/Pod-LaTeX/lib/Pod/LaTeX.pm [deleted file]
cpan/Pod-LaTeX/pod2latex.PL [deleted file]
cpan/Pod-LaTeX/t/pod2latex.t [deleted file]
cpan/Pod-LaTeX/t/user.t [deleted file]
lib/.gitignore
pod/.gitignore
pod/Makefile.SH
pod/perlutil.pod
t/porting/known_pod_issues.dat
utils.lst
win32/pod.mak

diff --git a/INSTALL b/INSTALL
index 6c862b5..9386263 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -2151,7 +2151,6 @@ make install will install the following:
                        utility iconv.
        pl2pm           Convert Perl 4 .pl files to Perl 5 .pm modules.
        pod2html,       Converters from perl's pod documentation format
-       pod2latex,      to other useful formats.
        pod2man,
        pod2text,
        pod2usage
index 4143340..e82582e 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1813,10 +1813,6 @@ cpan/Pod-Escapes/README                  README for Pod::Escapes
 cpan/Pod-Escapes/t/01_about_verbose.t  test Pod::Escapes
 cpan/Pod-Escapes/t/10_main.t           test Pod::Escapes
 cpan/Pod-Escapes/t/15_name2charnum.t   test Pod::Escapes
-cpan/Pod-LaTeX/lib/Pod/LaTeX.pm                Convert POD data to LaTeX
-cpan/Pod-LaTeX/pod2latex.PL    Precursor for translator to turn pod into LaTeX
-cpan/Pod-LaTeX/t/pod2latex.t   See if Pod::LaTeX works
-cpan/Pod-LaTeX/t/user.t                See if Pod::LaTeX works
 cpan/podlators/lib/Pod/Man.pm                  Convert POD data to *roff
 cpan/podlators/lib/Pod/ParseLink.pm            Perl an L<> formatting code in POD text
 cpan/podlators/lib/Pod/Text/Color.pm           Convert POD data to color ASCII text
index 31885f4..5625bd9 100644 (file)
@@ -666,7 +666,6 @@ UTILS               =                       \
                ..\utils\h2xs           \
                ..\utils\perldoc        \
                ..\pod\pod2html         \
-               ..\pod\pod2latex        \
                ..\pod\pod2man          \
                ..\pod\pod2text         \
                ..\pod\pod2usage        \
@@ -850,7 +849,6 @@ EXTENSION_NPM =     \
 
 POD2HTML       = $(PODDIR)\pod2html
 POD2MAN                = $(PODDIR)\pod2man
-POD2LATEX      = $(PODDIR)\pod2latex
 POD2TEXT       = $(PODDIR)\pod2text
 
 #
index 9d3baae..cf9065e 100755 (executable)
@@ -1488,15 +1488,6 @@ use File::Glob qw(:case);
         'UPSTREAM'   => 'blead',
     },
 
-    'Pod::LaTeX' => {
-        'MAINTAINER'   => 'tjenness',
-        'DISTRIBUTION' => 'TJENNESS/Pod-LaTeX-0.61.tar.gz',
-        'FILES'        => q[cpan/Pod-LaTeX],
-        'EXCLUDED'     => ['t/require.t'],
-        'UPSTREAM'     => undef,
-        'DEPRECATED'   => '5.017008',
-    },
-
     'Pod::Parser' => {
         'MAINTAINER' => 'marekr',
         'DISTRIBUTION' => 'MAREKR/Pod-Parser-1.60.tar.gz',
index 259c567..f1c6171 100644 (file)
@@ -7293,7 +7293,6 @@ $ WRITE CONFIG "$ perlivp    == """ + perl_setup_perl + " ''vms_prefix':[utils]p
 $ WRITE CONFIG "$ piconv     == """ + perl_setup_perl + " ''vms_prefix':[utils]piconv.com"""
 $ WRITE CONFIG "$ pl2pm      == """ + perl_setup_perl + " ''vms_prefix':[utils]pl2pm.com"""
 $ WRITE CONFIG "$ pod2html   == """ + perl_setup_perl + " ''vms_prefix':[utils]pod2html.com"""
-$ WRITE CONFIG "$ pod2latex  == """ + perl_setup_perl + " ''vms_prefix':[utils]pod2latex.com"""
 $ WRITE CONFIG "$ pod2text   == """ + perl_setup_perl + " ''vms_prefix':[utils]pod2text.com"""
 $ WRITE CONFIG "$!pod2man    == """ + perl_setup_perl + " ''vms_prefix':[utils]pod2man.com"""
 $ WRITE CONFIG "$ pod2usage  == """ + perl_setup_perl + " ''vms_prefix':[utils]pod2usage.com"""
diff --git a/cpan/Pod-LaTeX/.gitignore b/cpan/Pod-LaTeX/.gitignore
deleted file mode 100644 (file)
index a348450..0000000
+++ /dev/null
@@ -1 +0,0 @@
-/pod2latex
diff --git a/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm b/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm
deleted file mode 100644 (file)
index fc6d99d..0000000
+++ /dev/null
@@ -1,1883 +0,0 @@
-package Pod::LaTeX;
-
-=head1 NAME
-
-Pod::LaTeX - Convert Pod data to formatted Latex
-
-=head1 SYNOPSIS
-
-  use Pod::LaTeX;
-  my $parser = Pod::LaTeX->new ( );
-
-  $parser->parse_from_filehandle;
-
-  $parser->parse_from_file ('file.pod', 'file.tex');
-
-=head1 DESCRIPTION
-
-C<Pod::LaTeX> is a module to convert documentation in the Pod format
-into Latex. The L<B<pod2latex>|pod2latex> X<pod2latex> command uses
-this module for translation.
-
-C<Pod::LaTeX> is a derived class from L<Pod::Select|Pod::Select>.
-
-=cut
-
-
-use strict;
-require Pod::ParseUtils;
-use base qw/ Pod::Select /;
-
-use if $] > 5.017, 'deprecate';
-
-# use Data::Dumper; # for debugging
-use Carp;
-
-use vars qw/ $VERSION %HTML_Escapes @LatexSections /;
-
-$VERSION = '0.61';
-
-# Definitions of =headN -> latex mapping
-@LatexSections = (qw/
-                 chapter
-                 section
-                 subsection
-                 subsubsection
-                 paragraph
-                 subparagraph
-                 /);
-
-# Standard escape sequences converted to Latex.
-# The Unicode name of each character is given in the comments.
-# Complete LaTeX set added by Peter Acklam.
-
-%HTML_Escapes = (
-     'sol'    => '\textfractionsolidus{}',  # xxx - or should it be just '/'
-     'verbar' => '|',
-
-     # The stuff below is based on the information available at
-     # http://www.w3.org/TR/html401/sgml/entities.html
-
-     # All characters in the range 0xA0-0xFF of the ISO 8859-1 character set.
-     # Several of these characters require the `textcomp' LaTeX package.
-     'nbsp'   => q|~|,                     # 0xA0 - no-break space = non-breaking space
-     'iexcl'  => q|\textexclamdown{}|,     # 0xA1 - inverted exclamation mark
-     'cent'   => q|\textcent{}|,           # 0xA2 - cent sign
-     'pound'  => q|\textsterling{}|,       # 0xA3 - pound sign
-     'curren' => q|\textcurrency{}|,       # 0xA4 - currency sign
-     'yen'    => q|\textyen{}|,            # 0xA5 - yen sign = yuan sign
-     'brvbar' => q|\textbrokenbar{}|,      # 0xA6 - broken bar = broken vertical bar
-     'sect'   => q|\textsection{}|,        # 0xA7 - section sign
-     'uml'    => q|\textasciidieresis{}|,  # 0xA8 - diaeresis = spacing diaeresis
-     'copy'   => q|\textcopyright{}|,      # 0xA9 - copyright sign
-     'ordf'   => q|\textordfeminine{}|,    # 0xAA - feminine ordinal indicator
-     'laquo'  => q|\guillemotleft{}|,      # 0xAB - left-pointing double angle quotation mark = left pointing guillemet
-     'not'    => q|\textlnot{}|,           # 0xAC - not sign
-     'shy'    => q|\-|,                    # 0xAD - soft hyphen = discretionary hyphen
-     'reg'    => q|\textregistered{}|,     # 0xAE - registered sign = registered trade mark sign
-     'macr'   => q|\textasciimacron{}|,    # 0xAF - macron = spacing macron = overline = APL overbar
-     'deg'    => q|\textdegree{}|,         # 0xB0 - degree sign
-     'plusmn' => q|\textpm{}|,             # 0xB1 - plus-minus sign = plus-or-minus sign
-     'sup2'   => q|\texttwosuperior{}|,    # 0xB2 - superscript two = superscript digit two = squared
-     'sup3'   => q|\textthreesuperior{}|,  # 0xB3 - superscript three = superscript digit three = cubed
-     'acute'  => q|\textasciiacute{}|,     # 0xB4 - acute accent = spacing acute
-     'micro'  => q|\textmu{}|,             # 0xB5 - micro sign
-     'para'   => q|\textparagraph{}|,      # 0xB6 - pilcrow sign = paragraph sign
-     'middot' => q|\textperiodcentered{}|, # 0xB7 - middle dot = Georgian comma = Greek middle dot
-     'cedil'  => q|\c{}|,                  # 0xB8 - cedilla = spacing cedilla
-     'sup1'   => q|\textonesuperior{}|,    # 0xB9 - superscript one = superscript digit one
-     'ordm'   => q|\textordmasculine{}|,   # 0xBA - masculine ordinal indicator
-     'raquo'  => q|\guillemotright{}|,     # 0xBB - right-pointing double angle quotation mark = right pointing guillemet
-     'frac14' => q|\textonequarter{}|,     # 0xBC - vulgar fraction one quarter = fraction one quarter
-     'frac12' => q|\textonehalf{}|,        # 0xBD - vulgar fraction one half = fraction one half
-     'frac34' => q|\textthreequarters{}|,  # 0xBE - vulgar fraction three quarters = fraction three quarters
-     'iquest' => q|\textquestiondown{}|,   # 0xBF - inverted question mark = turned question mark
-     'Agrave' => q|\`A|,                   # 0xC0 - latin capital letter A with grave = latin capital letter A grave
-     'Aacute' => q|\'A|,             # 0xC1 - latin capital letter A with acute
-     'Acirc'  => q|\^A|,             # 0xC2 - latin capital letter A with circumflex
-     'Atilde' => q|\~A|,             # 0xC3 - latin capital letter A with tilde
-     'Auml'   => q|\"A|,             # 0xC4 - latin capital letter A with diaeresis
-     'Aring'  => q|\AA{}|,           # 0xC5 - latin capital letter A with ring above = latin capital letter A ring
-     'AElig'  => q|\AE{}|,           # 0xC6 - latin capital letter AE = latin capital ligature AE
-     'Ccedil' => q|\c{C}|,           # 0xC7 - latin capital letter C with cedilla
-     'Egrave' => q|\`E|,             # 0xC8 - latin capital letter E with grave
-     'Eacute' => q|\'E|,             # 0xC9 - latin capital letter E with acute
-     'Ecirc'  => q|\^E|,             # 0xCA - latin capital letter E with circumflex
-     'Euml'   => q|\"E|,             # 0xCB - latin capital letter E with diaeresis
-     'Igrave' => q|\`I|,             # 0xCC - latin capital letter I with grave
-     'Iacute' => q|\'I|,             # 0xCD - latin capital letter I with acute
-     'Icirc'  => q|\^I|,             # 0xCE - latin capital letter I with circumflex
-     'Iuml'   => q|\"I|,             # 0xCF - latin capital letter I with diaeresis
-     'ETH'    => q|\DH{}|,           # 0xD0 - latin capital letter ETH
-     'Ntilde' => q|\~N|,             # 0xD1 - latin capital letter N with tilde
-     'Ograve' => q|\`O|,             # 0xD2 - latin capital letter O with grave
-     'Oacute' => q|\'O|,             # 0xD3 - latin capital letter O with acute
-     'Ocirc'  => q|\^O|,             # 0xD4 - latin capital letter O with circumflex
-     'Otilde' => q|\~O|,             # 0xD5 - latin capital letter O with tilde
-     'Ouml'   => q|\"O|,             # 0xD6 - latin capital letter O with diaeresis
-     'times'  => q|\texttimes{}|,    # 0xD7 - multiplication sign
-     'Oslash' => q|\O{}|,            # 0xD8 - latin capital letter O with stroke = latin capital letter O slash
-     'Ugrave' => q|\`U|,             # 0xD9 - latin capital letter U with grave
-     'Uacute' => q|\'U|,             # 0xDA - latin capital letter U with acute
-     'Ucirc'  => q|\^U|,             # 0xDB - latin capital letter U with circumflex
-     'Uuml'   => q|\"U|,             # 0xDC - latin capital letter U with diaeresis
-     'Yacute' => q|\'Y|,             # 0xDD - latin capital letter Y with acute
-     'THORN'  => q|\TH{}|,           # 0xDE - latin capital letter THORN
-     'szlig'  => q|\ss{}|,           # 0xDF - latin small letter sharp s = ess-zed
-     'agrave' => q|\`a|,             # 0xE0 - latin small letter a with grave = latin small letter a grave
-     'aacute' => q|\'a|,             # 0xE1 - latin small letter a with acute
-     'acirc'  => q|\^a|,             # 0xE2 - latin small letter a with circumflex
-     'atilde' => q|\~a|,             # 0xE3 - latin small letter a with tilde
-     'auml'   => q|\"a|,             # 0xE4 - latin small letter a with diaeresis
-     'aring'  => q|\aa{}|,           # 0xE5 - latin small letter a with ring above = latin small letter a ring
-     'aelig'  => q|\ae{}|,           # 0xE6 - latin small letter ae = latin small ligature ae
-     'ccedil' => q|\c{c}|,           # 0xE7 - latin small letter c with cedilla
-     'egrave' => q|\`e|,             # 0xE8 - latin small letter e with grave
-     'eacute' => q|\'e|,             # 0xE9 - latin small letter e with acute
-     'ecirc'  => q|\^e|,             # 0xEA - latin small letter e with circumflex
-     'euml'   => q|\"e|,             # 0xEB - latin small letter e with diaeresis
-     'igrave' => q|\`i|,             # 0xEC - latin small letter i with grave
-     'iacute' => q|\'i|,             # 0xED - latin small letter i with acute
-     'icirc'  => q|\^i|,             # 0xEE - latin small letter i with circumflex
-     'iuml'   => q|\"i|,             # 0xEF - latin small letter i with diaeresis
-     'eth'    => q|\dh{}|,           # 0xF0 - latin small letter eth
-     'ntilde' => q|\~n|,             # 0xF1 - latin small letter n with tilde
-     'ograve' => q|\`o|,             # 0xF2 - latin small letter o with grave
-     'oacute' => q|\'o|,             # 0xF3 - latin small letter o with acute
-     'ocirc'  => q|\^o|,             # 0xF4 - latin small letter o with circumflex
-     'otilde' => q|\~o|,             # 0xF5 - latin small letter o with tilde
-     'ouml'   => q|\"o|,             # 0xF6 - latin small letter o with diaeresis
-     'divide' => q|\textdiv{}|,      # 0xF7 - division sign
-     'oslash' => q|\o{}|,            # 0xF8 - latin small letter o with stroke, = latin small letter o slash
-     'ugrave' => q|\`u|,             # 0xF9 - latin small letter u with grave
-     'uacute' => q|\'u|,             # 0xFA - latin small letter u with acute
-     'ucirc'  => q|\^u|,             # 0xFB - latin small letter u with circumflex
-     'uuml'   => q|\"u|,             # 0xFC - latin small letter u with diaeresis
-     'yacute' => q|\'y|,             # 0xFD - latin small letter y with acute
-     'thorn'  => q|\th{}|,           # 0xFE - latin small letter thorn
-     'yuml'   => q|\"y|,             # 0xFF - latin small letter y with diaeresis
-
-     # Latin Extended-B
-     'fnof'   => q|\textflorin{}|,   # latin small f with hook = function = florin
-
-     # Greek
-     'Alpha'    => q|$\mathrm{A}$|,      # greek capital letter alpha
-     'Beta'     => q|$\mathrm{B}$|,      # greek capital letter beta
-     'Gamma'    => q|$\Gamma$|,          # greek capital letter gamma
-     'Delta'    => q|$\Delta$|,          # greek capital letter delta
-     'Epsilon'  => q|$\mathrm{E}$|,      # greek capital letter epsilon
-     'Zeta'     => q|$\mathrm{Z}$|,      # greek capital letter zeta
-     'Eta'      => q|$\mathrm{H}$|,      # greek capital letter eta
-     'Theta'    => q|$\Theta$|,          # greek capital letter theta
-     'Iota'     => q|$\mathrm{I}$|,      # greek capital letter iota
-     'Kappa'    => q|$\mathrm{K}$|,      # greek capital letter kappa
-     'Lambda'   => q|$\Lambda$|,         # greek capital letter lambda
-     'Mu'       => q|$\mathrm{M}$|,      # greek capital letter mu
-     'Nu'       => q|$\mathrm{N}$|,      # greek capital letter nu
-     'Xi'       => q|$\Xi$|,             # greek capital letter xi
-     'Omicron'  => q|$\mathrm{O}$|,      # greek capital letter omicron
-     'Pi'       => q|$\Pi$|,             # greek capital letter pi
-     'Rho'      => q|$\mathrm{R}$|,      # greek capital letter rho
-     'Sigma'    => q|$\Sigma$|,          # greek capital letter sigma
-     'Tau'      => q|$\mathrm{T}$|,      # greek capital letter tau
-     'Upsilon'  => q|$\Upsilon$|,        # greek capital letter upsilon
-     'Phi'      => q|$\Phi$|,            # greek capital letter phi
-     'Chi'      => q|$\mathrm{X}$|,      # greek capital letter chi
-     'Psi'      => q|$\Psi$|,            # greek capital letter psi
-     'Omega'    => q|$\Omega$|,          # greek capital letter omega
-
-     'alpha'    => q|$\alpha$|,          # greek small letter alpha
-     'beta'     => q|$\beta$|,           # greek small letter beta
-     'gamma'    => q|$\gamma$|,          # greek small letter gamma
-     'delta'    => q|$\delta$|,          # greek small letter delta
-     'epsilon'  => q|$\epsilon$|,        # greek small letter epsilon
-     'zeta'     => q|$\zeta$|,           # greek small letter zeta
-     'eta'      => q|$\eta$|,            # greek small letter eta
-     'theta'    => q|$\theta$|,          # greek small letter theta
-     'iota'     => q|$\iota$|,           # greek small letter iota
-     'kappa'    => q|$\kappa$|,          # greek small letter kappa
-     'lambda'   => q|$\lambda$|,         # greek small letter lambda
-     'mu'       => q|$\mu$|,             # greek small letter mu
-     'nu'       => q|$\nu$|,             # greek small letter nu
-     'xi'       => q|$\xi$|,             # greek small letter xi
-     'omicron'  => q|$o$|,               # greek small letter omicron
-     'pi'       => q|$\pi$|,             # greek small letter pi
-     'rho'      => q|$\rho$|,            # greek small letter rho
-#    'sigmaf'   => q||,                  # greek small letter final sigma
-     'sigma'    => q|$\sigma$|,          # greek small letter sigma
-     'tau'      => q|$\tau$|,            # greek small letter tau
-     'upsilon'  => q|$\upsilon$|,        # greek small letter upsilon
-     'phi'      => q|$\phi$|,            # greek small letter phi
-     'chi'      => q|$\chi$|,            # greek small letter chi
-     'psi'      => q|$\psi$|,            # greek small letter psi
-     'omega'    => q|$\omega$|,          # greek small letter omega
-#    'thetasym' => q||,                  # greek small letter theta symbol
-#    'upsih'    => q||,                  # greek upsilon with hook symbol
-#    'piv'      => q||,                  # greek pi symbol
-
-     # General Punctuation
-     'bull'     => q|\textbullet{}|,     # bullet = black small circle
-     # bullet is NOT the same as bullet operator
-     'hellip'   => q|\textellipsis{}|,           # horizontal ellipsis = three dot leader
-     'prime'    => q|\textquotesingle{}|,        # prime = minutes = feet
-     'Prime'    => q|\textquotedbl{}|,           # double prime = seconds = inches
-     'oline'    => q|\textasciimacron{}|,        # overline = spacing overscore
-     'frasl'    => q|\textfractionsolidus{}|,    # fraction slash
-
-     # Letterlike Symbols
-     'weierp'   => q|$\wp$|,                     # script capital P = power set = Weierstrass p
-     'image'    => q|$\Re$|,                     # blackletter capital I = imaginary part
-     'real'     => q|$\Im$|,                     # blackletter capital R = real part symbol
-     'trade'    => q|\texttrademark{}|,          # trade mark sign
-#    'alefsym'  => q||,                          # alef symbol = first transfinite cardinal
-     # alef symbol is NOT the same as hebrew letter alef, although the same
-     # glyph could be used to depict both characters
-
-     # Arrows
-     'larr'     => q|\textleftarrow{}|,          # leftwards arrow
-     'uarr'     => q|\textuparrow{}|,            # upwards arrow
-     'rarr'     => q|\textrightarrow{}|,         # rightwards arrow
-     'darr'     => q|\textdownarrow{}|,          # downwards arrow
-     'harr'     => q|$\leftrightarrow$|,         # left right arrow
-#    'crarr'    => q||,                          # downwards arrow with corner leftwards = carriage return
-     'lArr'     => q|$\Leftarrow$|,              # leftwards double arrow
-     # ISO 10646 does not say that lArr is the same as the 'is implied by'
-     # arrow but also does not have any other character for that function. So
-     # lArr can be used for 'is implied by' as ISOtech suggests
-     'uArr'     => q|$\Uparrow$|,                # upwards double arrow
-     'rArr'     => q|$\Rightarrow$|,             # rightwards double arrow
-     # ISO 10646 does not say this is the 'implies' character but does not
-     # have another character with this function so ? rArr can be used for
-     # 'implies' as ISOtech suggests
-     'dArr'     => q|$\Downarrow$|,              # downwards double arrow
-     'hArr'     => q|$\Leftrightarrow$|,         # left right double arrow
-
-     # Mathematical Operators.
-     # Some of these require the `amssymb' package.
-     'forall'   => q|$\forall$|,                 # for all
-     'part'     => q|$\partial$|,                # partial differential
-     'exist'    => q|$\exists$|,                 # there exists
-     'empty'    => q|$\emptyset$|,               # empty set = null set = diameter
-     'nabla'    => q|$\nabla$|,                  # nabla = backward difference
-     'isin'     => q|$\in$|,                     # element of
-     'notin'    => q|$\notin$|,                  # not an element of
-     'ni'       => q|$\ni$|,                     # contains as member
-     'prod'     => q|$\prod$|,                   # n-ary product = product sign
-     # prod is NOT the same character as 'greek capital letter pi' though the
-     # same glyph might be used for both
-     'sum'      => q|$\sum$|,                    # n-ary summation
-     # sum is NOT the same character as 'greek capital letter sigma' though
-     # the same glyph might be used for both
-     'minus'    => q|$-$|,                       # minus sign
-     'lowast'   => q|$\ast$|,                    # asterisk operator
-     'radic'    => q|$\surd$|,                   # square root = radical sign
-     'prop'     => q|$\propto$|,                 # proportional to
-     'infin'    => q|$\infty$|,                  # infinity
-     'ang'      => q|$\angle$|,                  # angle
-     'and'      => q|$\wedge$|,                  # logical and = wedge
-     'or'       => q|$\vee$|,                    # logical or = vee
-     'cap'      => q|$\cap$|,                    # intersection = cap
-     'cup'      => q|$\cup$|,                    # union = cup
-     'int'      => q|$\int$|,                    # integral
-     'there4'   => q|$\therefore$|,              # therefore
-     'sim'      => q|$\sim$|,                    # tilde operator = varies with = similar to
-     # tilde operator is NOT the same character as the tilde
-     'cong'     => q|$\cong$|,                   # approximately equal to
-     'asymp'    => q|$\asymp$|,                  # almost equal to = asymptotic to
-     'ne'       => q|$\neq$|,                    # not equal to
-     'equiv'    => q|$\equiv$|,                  # identical to
-     'le'       => q|$\leq$|,                    # less-than or equal to
-     'ge'       => q|$\geq$|,                    # greater-than or equal to
-     'sub'      => q|$\subset$|,                 # subset of
-     'sup'      => q|$\supset$|,                 # superset of
-     # note that nsup, 'not a superset of' is not covered by the Symbol font
-     # encoding and is not included.
-     'nsub'     => q|$\not\subset$|,             # not a subset of
-     'sube'     => q|$\subseteq$|,               # subset of or equal to
-     'supe'     => q|$\supseteq$|,               # superset of or equal to
-     'oplus'    => q|$\oplus$|,                  # circled plus = direct sum
-     'otimes'   => q|$\otimes$|,                 # circled times = vector product
-     'perp'     => q|$\perp$|,                   # up tack = orthogonal to = perpendicular
-     'sdot'     => q|$\cdot$|,                   # dot operator
-     # dot operator is NOT the same character as middle dot
-
-     # Miscellaneous Technical
-     'lceil'    => q|$\lceil$|,                  # left ceiling = apl upstile
-     'rceil'    => q|$\rceil$|,                  # right ceiling
-     'lfloor'   => q|$\lfloor$|,                 # left floor = apl downstile
-     'rfloor'   => q|$\rfloor$|,                 # right floor
-     'lang'     => q|$\langle$|,                 # left-pointing angle bracket = bra
-     # lang is NOT the same character as 'less than' or 'single left-pointing
-     # angle quotation mark'
-     'rang'     => q|$\rangle$|,                 # right-pointing angle bracket = ket
-     # rang is NOT the same character as 'greater than' or 'single
-     # right-pointing angle quotation mark'
-
-     # Geometric Shapes
-     'loz'      => q|$\lozenge$|,                # lozenge
-
-     # Miscellaneous Symbols
-     'spades'   => q|$\spadesuit$|,              # black spade suit
-     'clubs'    => q|$\clubsuit$|,               # black club suit = shamrock
-     'hearts'   => q|$\heartsuit$|,              # black heart suit = valentine
-     'diams'    => q|$\diamondsuit$|,            # black diamond suit
-
-     # C0 Controls and Basic Latin
-     'quot'     => q|"|,                         # quotation mark = APL quote ["]
-     'amp'      => q|\&|,                        # ampersand
-     'lt'       => q|<|,                         # less-than sign
-     'gt'       => q|>|,                         # greater-than sign
-     'OElig'    => q|\OE{}|,                     # latin capital ligature OE
-     'oelig'    => q|\oe{}|,                     # latin small ligature oe
-     'Scaron'   => q|\v{S}|,                     # latin capital letter S with caron
-     'scaron'   => q|\v{s}|,                     # latin small letter s with caron
-     'Yuml'     => q|\"Y|,                       # latin capital letter Y with diaeresis
-     'circ'     => q|\textasciicircum{}|,        # modifier letter circumflex accent
-     'tilde'    => q|\textasciitilde{}|,         # small tilde
-     'ensp'     => q|\phantom{n}|,               # en space
-     'emsp'     => q|\hspace{1em}|,              # em space
-     'thinsp'   => q|\,|,                        # thin space
-     'zwnj'     => q|{}|,                        # zero width non-joiner
-#    'zwj'      => q||,                          # zero width joiner
-#    'lrm'      => q||,                          # left-to-right mark
-#    'rlm'      => q||,                          # right-to-left mark
-     'ndash'    => q|--|,                        # en dash
-     'mdash'    => q|---|,                       # em dash
-     'lsquo'    => q|\textquoteleft{}|,          # left single quotation mark
-     'rsquo'    => q|\textquoteright{}|,         # right single quotation mark
-     'sbquo'    => q|\quotesinglbase{}|,         # single low-9 quotation mark
-     'ldquo'    => q|\textquotedblleft{}|,       # left double quotation mark
-     'rdquo'    => q|\textquotedblright{}|,      # right double quotation mark
-     'bdquo'    => q|\quotedblbase{}|,           # double low-9 quotation mark
-     'dagger'   => q|\textdagger{}|,             # dagger
-     'Dagger'   => q|\textdaggerdbl{}|,          # double dagger
-     'permil'   => q|\textperthousand{}|,        # per mille sign
-     'lsaquo'   => q|\guilsinglleft{}|,          # single left-pointing angle quotation mark
-     'rsaquo'   => q|\guilsinglright{}|,         # single right-pointing angle quotation mark
-     'euro'     => q|\texteuro{}|,               # euro sign
-);
-
-=head1 OBJECT METHODS
-
-The following methods are provided in this module. Methods inherited
-from C<Pod::Select> are not described in the public interface.
-
-=over 4
-
-=begin __PRIVATE__
-
-=item C<initialize>
-
-Initialise the object. This method is subclassed from C<Pod::Parser>.
-The base class method is invoked. This method defines the default
-behaviour of the object unless overridden by supplying arguments to
-the constructor. 
-
-Internal settings are defaulted as well as the public instance data.
-Internal hash values are accessed directly (rather than through
-a method) and start with an underscore.
-
-This method should not be invoked by the user directly.
-
-=end __PRIVATE__
-
-=cut
-
-
-
-#   - An array for nested lists
-
-# Arguments have already been read by this point
-
-sub initialize {
-  my $self = shift;
-
-  # print Dumper($self);
-
-  # Internals
-  $self->{_Lists} = [];             # For nested lists
-  $self->{_suppress_all_para}  = 0; # For =begin blocks
-  $self->{_dont_modify_any_para}=0; # For =begin blocks
-  $self->{_CURRENT_HEAD1}   = '';   # Name of current HEAD1 section
-
-  # Options - only initialise if not already set
-
-  # Cause the '=head1 NAME' field to be treated specially
-  # The contents of the NAME paragraph will be converted
-  # to a section title. All subsequent =head1 will be converted
-  # to =head2 and down. Will not affect =head1's prior to NAME 
-  # Assumes:  'Module - purpose' format
-  # Also creates a purpose field
-  # The name is used for Labeling of the subsequent subsections
-  $self->{ReplaceNAMEwithSection} = 0
-    unless exists $self->{ReplaceNAMEwithSection};
-  $self->{AddPreamble}      = 1    # make full latex document
-    unless exists $self->{AddPreamble};
-  $self->{StartWithNewPage} = 0    # Start new page for pod section
-    unless exists $self->{StartWithNewPage};
-  $self->{TableOfContents}  = 0    # Add table of contents
-    unless exists $self->{TableOfContents};  # only relevant if AddPreamble=1
-   $self->{AddPostamble}     = 1          # Add closing latex code at end
-    unless exists $self->{AddPostamble}; #  effectively end{document} and index
-  $self->{MakeIndex}        = 1         # Add index (only relevant AddPostamble
-    unless exists $self->{MakeIndex};   # and AddPreamble)
-
-  $self->{UniqueLabels}     = 1          # Use label unique for each pod
-    unless exists $self->{UniqueLabels}; # either based on the filename
-                                         # or supplied
-
-  # Control the level of =head1. default is \section
-  # 
-  $self->{Head1Level}     = 1   # Offset in latex sections
-    unless exists $self->{Head1Level}; # 0 is chapter, 2 is subsection
-
-  # Control at which level numbering of sections is turned off
-  # ie subsection becomes subsection*
-  # The numbering is relative to the latex sectioning commands
-  # and is independent of Pod heading level
-  # default is to number \section but not \subsection
-  $self->{LevelNoNum} = 2
-    unless exists $self->{LevelNoNum};
-
-  # Label to be used as prefix to all internal section names
-  # If not defined will attempt to derive it from the filename
-  # This can not happen when running parse_from_filehandle though
-  # hence the ability to set the label externally
-  # The label could then be Pod::Parser_DESCRIPTION or somesuch
-
-  $self->{Label}            = undef # label to be used as prefix
-    unless exists $self->{Label};   # to all internal section names
-
-  # These allow the caller to add arbitrary latex code to
-  # start and end of document. AddPreamble and AddPostamble are ignored
-  # if these are set.
-  # Also MakeIndex and TableOfContents are also ignored.
-  $self->{UserPreamble}     = undef # User supplied start (AddPreamble =1)
-    unless exists $self->{Label};
-  $self->{UserPostamble}    = undef # Use supplied end    (AddPostamble=1)
-    unless exists $self->{Label};
-
-  # Run base initialize
-  $self->SUPER::initialize;
-
-}
-
-=back
-
-=head2 Data Accessors
-
-The following methods are provided for accessing instance data. These
-methods should be used for accessing configuration parameters rather
-than assuming the object is a hash.
-
-Default values can be supplied by using these names as keys to a hash
-of arguments when using the C<new()> constructor.
-
-=over 4
-
-=item B<AddPreamble>
-
-Logical to control whether a C<latex> preamble is to be written.
-If true, a valid C<latex> preamble is written before the pod data is written.
-This is similar to:
-
-  \documentclass{article}
-  \usepackage[T1]{fontenc}
-  \usepackage{textcomp}
-  \begin{document}
-
-but will be more complicated if table of contents and indexing are required.
-Can be used to set or retrieve the current value.
-
-  $add = $parser->AddPreamble();
-  $parser->AddPreamble(1);
-
-If used in conjunction with C<AddPostamble> a full latex document will
-be written that could be immediately processed by C<latex>.
-
-For some pod escapes it may be necessary to include the amsmath
-package. This is not yet added to the preamble automatically.
-
-=cut
-
-sub AddPreamble {
-   my $self = shift;
-   if (@_) {
-     $self->{AddPreamble} = shift;
-   }
-   return $self->{AddPreamble};
-}
-
-=item B<AddPostamble>
-
-Logical to control whether a standard C<latex> ending is written to the output
-file after the document has been processed.
-In its simplest form this is simply:
-
-  \end{document}
-
-but can be more complicated if a index is required.
-Can be used to set or retrieve the current value.
-
-  $add = $parser->AddPostamble();
-  $parser->AddPostamble(1);
-
-If used in conjunction with C<AddPreaamble> a full latex document will
-be written that could be immediately processed by C<latex>.
-
-=cut
-
-sub AddPostamble {
-   my $self = shift;
-   if (@_) {
-     $self->{AddPostamble} = shift;
-   }
-   return $self->{AddPostamble};
-}
-
-=item B<Head1Level>
-
-The C<latex> sectioning level that should be used to correspond to
-a pod C<=head1> directive. This can be used, for example, to turn
-a C<=head1> into a C<latex> C<subsection>. This should hold a number
-corresponding to the required position in an array containing the
-following elements:
-
- [0] chapter
- [1] section
- [2] subsection
- [3] subsubsection
- [4] paragraph
- [5] subparagraph
-
-Can be used to set or retrieve the current value:
-
-  $parser->Head1Level(2);
-  $sect = $parser->Head1Level;
-
-Setting this number too high can result in sections that may not be reproducible
-in the expected way. For example, setting this to 4 would imply that C<=head3>
-do not have a corresponding C<latex> section (C<=head1> would correspond to
-a C<paragraph>).
-
-A check is made to ensure that the supplied value is an integer in the
-range 0 to 5.
-
-Default is for a value of 1 (i.e. a C<section>).
-
-=cut
-
-sub Head1Level {
-   my $self = shift;
-   if (@_) {
-     my $arg = shift;
-     if ($arg =~ /^\d$/ && $arg <= $#LatexSections) {
-       $self->{Head1Level} = $arg;
-     } else {
-       carp "Head1Level supplied ($arg) must be integer in range 0 to ".$#LatexSections . "- Ignoring\n";
-     }
-   }
-   return $self->{Head1Level};
-}
-
-=item B<Label>
-
-This is the label that is prefixed to all C<latex> label and index
-entries to make them unique. In general, pods have similarly titled
-sections (NAME, DESCRIPTION etc) and a C<latex> label will be multiply
-defined if more than one pod document is to be included in a single
-C<latex> file. To overcome this, this label is prefixed to a label
-whenever a label is required (joined with an underscore) or to an
-index entry (joined by an exclamation mark which is the normal index
-separator). For example, C<\label{text}> becomes C<\label{Label_text}>.
-
-Can be used to set or retrieve the current value:
-
-  $label = $parser->Label;
-  $parser->Label($label);
-
-This label is only used if C<UniqueLabels> is true.
-Its value is set automatically from the C<NAME> field
-if C<ReplaceNAMEwithSection> is true. If this is not the case
-it must be set manually before starting the parse.
-
-Default value is C<undef>.
-
-=cut
-
-sub Label {
-   my $self = shift;
-   if (@_) {
-     $self->{Label} = shift;
-   }
-   return $self->{Label};
-}
-
-=item B<LevelNoNum>
-
-Control the point at which C<latex> section numbering is turned off.
-For example, this can be used to make sure that C<latex> sections
-are numbered but subsections are not.
-
-Can be used to set or retrieve the current value:
-
-  $lev = $parser->LevelNoNum;
-  $parser->LevelNoNum(2);
-
-The argument must be an integer between 0 and 5 and is the same as the
-number described in C<Head1Level> method description. The number has
-nothing to do with the pod heading number, only the C<latex> sectioning.
-
-Default is 2. (i.e. C<latex> subsections are written as C<subsection*>
-but sections are numbered).
-
-=cut
-
-sub LevelNoNum {
-   my $self = shift;
-   if (@_) {
-     $self->{LevelNoNum} = shift;
-   }
-   return $self->{LevelNoNum};
-}
-
-=item B<MakeIndex>
-
-Controls whether C<latex> commands for creating an index are to be inserted
-into the preamble and postamble
-
-  $makeindex = $parser->MakeIndex;
-  $parser->MakeIndex(0);
-
-Irrelevant if both C<AddPreamble> and C<AddPostamble> are false (or equivalently,
-C<UserPreamble> and C<UserPostamble> are set).
-
-Default is for an index to be created.
-
-=cut
-
-sub MakeIndex {
-   my $self = shift;
-   if (@_) {
-     $self->{MakeIndex} = shift;
-   }
-   return $self->{MakeIndex};
-}
-
-=item B<ReplaceNAMEwithSection>
-
-This controls whether the C<NAME> section in the pod is to be translated
-literally or converted to a slightly modified output where the section
-name is the pod name rather than "NAME".
-
-If true, the pod segment
-
-  =head1 NAME
-
-  pod::name - purpose
-
-  =head1 SYNOPSIS
-
-is converted to the C<latex>
-
-  \section{pod::name\label{pod_name}\index{pod::name}}
-
-  Purpose
-
-  \subsection*{SYNOPSIS\label{pod_name_SYNOPSIS}%
-               \index{pod::name!SYNOPSIS}}
-
-(dependent on the value of C<Head1Level> and C<LevelNoNum>). Note that
-subsequent C<head1> directives translate to subsections rather than
-sections and that the labels and index now include the pod name (dependent
-on the value of C<UniqueLabels>).
-
-The C<Label> is set from the pod name regardless of any current value
-of C<Label>.
-
-  $mod = $parser->ReplaceNAMEwithSection;
-  $parser->ReplaceNAMEwithSection(0);
-
-Default is to translate the pod literally.
-
-=cut
-
-sub ReplaceNAMEwithSection {
-   my $self = shift;
-   if (@_) {
-     $self->{ReplaceNAMEwithSection} = shift;
-   }
-   return $self->{ReplaceNAMEwithSection};
-}
-
-=item B<StartWithNewPage>
-
-If true, each pod translation will begin with a C<latex>
-C<\clearpage>.
-
-  $parser->StartWithNewPage(1);
-  $newpage = $parser->StartWithNewPage;
-
-Default is false.
-
-=cut
-
-sub StartWithNewPage {
-   my $self = shift;
-   if (@_) {
-     $self->{StartWithNewPage} = shift;
-   }
-   return $self->{StartWithNewPage};
-}
-
-=item B<TableOfContents>
-
-If true, a table of contents will be created.
-Irrelevant if C<AddPreamble> is false or C<UserPreamble>
-is set.
-
-  $toc = $parser->TableOfContents;
-  $parser->TableOfContents(1);
-
-Default is false.
-
-=cut
-
-sub TableOfContents {
-   my $self = shift;
-   if (@_) {
-     $self->{TableOfContents} = shift;
-   }
-   return $self->{TableOfContents};
-}
-
-=item B<UniqueLabels>
-
-If true, the translator will attempt to make sure that
-each C<latex> label or index entry will be uniquely identified
-by prefixing the contents of C<Label>. This allows
-multiple documents to be combined without clashing 
-common labels such as C<DESCRIPTION> and C<SYNOPSIS>
-
-  $parser->UniqueLabels(1);
-  $unq = $parser->UniqueLabels;
-
-Default is true.
-
-=cut
-
-sub UniqueLabels {
-   my $self = shift;
-   if (@_) {
-     $self->{UniqueLabels} = shift;
-   }
-   return $self->{UniqueLabels};
-}
-
-=item B<UserPreamble>
-
-User supplied C<latex> preamble. Added before the pod translation
-data. 
-
-If set, the contents will be prepended to the output file before the translated 
-data regardless of the value of C<AddPreamble>.
-C<MakeIndex> and C<TableOfContents> will also be ignored.
-
-=cut
-
-sub UserPreamble {
-   my $self = shift;
-   if (@_) {
-     $self->{UserPreamble} = shift;
-   }
-   return $self->{UserPreamble};
-}
-
-=item B<UserPostamble>
-
-User supplied C<latex> postamble. Added after the pod translation
-data. 
-
-If set, the contents will be prepended to the output file after the translated 
-data regardless of the value of C<AddPostamble>.
-C<MakeIndex> will also be ignored.
-
-=cut
-
-sub UserPostamble {
-   my $self = shift;
-   if (@_) {
-     $self->{UserPostamble} = shift;
-   }
-   return $self->{UserPostamble};
-}
-
-=begin __PRIVATE__
-
-=item B<Lists>
-
-Contains details of the currently active lists.
-  The array contains C<Pod::List> objects. A new C<Pod::List>
-object is created each time a list is encountered and it is
-pushed onto this stack. When the list context ends, it 
-is popped from the stack. The array will be empty if no
-lists are active.
-
-Returns array of list information in list context
-Returns array ref in scalar context
-
-=cut
-
-
-
-sub lists {
-  my $self = shift;
-  return @{ $self->{_Lists} } if wantarray();
-  return $self->{_Lists};
-}
-
-=end __PRIVATE__
-
-=back
-
-=begin __PRIVATE__
-
-=head2 Subclassed methods
-
-The following methods override methods provided in the C<Pod::Select>
-base class. See C<Pod::Parser> and C<Pod::Select> for more information
-on what these methods require.
-
-=over 4
-
-=cut
-
-######### END ACCESSORS ###################
-
-# Opening pod
-
-=item B<begin_pod>
-
-Writes the C<latex> preamble if requested. Only writes something
-if AddPreamble is true. Writes a standard header unless a UserPreamble
-is defined.
-
-=cut
-
-sub begin_pod {
-  my $self = shift;
-
-  # Get the pod identification
-  # This should really come from the '=head1 NAME' paragraph
-
-  my $infile = $self->input_file;
-  my $class = ref($self);
-  my $date = gmtime(time);
-
-  # Comment message to say where this came from
-  my $comment = << "__TEX_COMMENT__";
-%%  Latex generated from POD in document $infile
-%%  Using the perl module $class
-%%  Converted on $date
-__TEX_COMMENT__
-
-  # Write the preamble
-  # If the caller has supplied one then we just use that
-
-  my $preamble = '';
-
-  if ($self->AddPreamble) {
-
-    if (defined $self->UserPreamble) {
-
-      $preamble = $self->UserPreamble;
-
-      # Add the description of where this came from
-      $preamble .=  "\n$comment\n%%  Preamble supplied by user.\n\n";
-
-    } else {
-
-      # Write our own preamble
-
-      # Code to initialise index making
-      # Use an array so that we can prepend comment if required
-      my @makeidx = (
-                    '\usepackage{makeidx}',
-                    '\makeindex',
-                   );
-
-      unless ($self->MakeIndex) {
-       foreach (@makeidx) {
-         $_ = '%% ' . $_;
-       }
-      }
-      my $makeindex = join("\n",@makeidx) . "\n";
-
-      # Table of contents
-      my $tableofcontents = '\tableofcontents';
-
-      $tableofcontents = '%% ' . $tableofcontents
-       unless $self->TableOfContents;
-
-      # Roll our own
-      $preamble = << "__TEX_HEADER__";
-\\documentclass{article}
-\\usepackage[T1]{fontenc}
-\\usepackage{textcomp}
-
-$comment
-
-$makeindex
-
-\\begin{document}
-
-$tableofcontents
-
-__TEX_HEADER__
-
-    }
-  }
-
-  # Write the header (blank if none)
-  $self->_output($preamble);
-
-  # Start on new page if requested
-  $self->_output("\\clearpage\n") if $self->StartWithNewPage;
-
-}
-
-
-=item B<end_pod>
-
-Write the closing C<latex> code. Only writes something if AddPostamble
-is true. Writes a standard header unless a UserPostamble is defined.
-
-=cut
-
-sub end_pod {
-  my $self = shift;
-
-  # End string
-  my $end = '';
-
-  # Use the user version of the postamble if defined
-  if ($self->AddPostamble) {
-
-    if (defined $self->UserPostamble) {
-      $end = $self->UserPostamble;
-
-    } else {
-
-      # Check for index
-      my $makeindex = '\printindex';
-
-      $makeindex = '%% '. $makeindex  unless $self->MakeIndex;
-
-      $end = "$makeindex\n\n\\end{document}\n";
-    }
-  }
-
-  $self->_output($end);
-
-}
-
-=item B<command>
-
-Process basic pod commands.
-
-=cut
-
-sub command {
-  my $self = shift;
-  my ($command, $paragraph, $line_num, $parobj) = @_;
-
-  # return if we dont care
-  return if $command eq 'pod';
-
-  # Store a copy of the raw text in case we are in a =for
-  # block and need to preserve the existing latex
-  my $rawpara = $paragraph;
-
-  # Do the latex escapes
-  $paragraph = $self->_replace_special_chars($paragraph);
-
-  # Interpolate pod sequences in paragraph
-  $paragraph = $self->interpolate($paragraph, $line_num);
-  $paragraph =~ s/\s+$//;
-
-  # Replace characters that can only be done after 
-  # interpolation of interior sequences
-  $paragraph = $self->_replace_special_chars_late($paragraph);
-
-  # Now run the command
-  if ($command eq 'over') {
-
-    $self->begin_list($paragraph, $line_num);
-
-  } elsif ($command eq 'item') {
-
-    $self->add_item($paragraph, $line_num);
-
-  } elsif ($command eq 'back') {
-
-    $self->end_list($line_num);
-
-  } elsif ($command eq 'head1') {
-
-    # Store the name of the section
-    $self->{_CURRENT_HEAD1} = $paragraph;
-
-    # Print it
-    $self->head(1, $paragraph, $parobj);
-
-  } elsif ($command eq 'head2') {
-
-    $self->head(2, $paragraph, $parobj);
-
-  } elsif ($command eq 'head3') {
-
-    $self->head(3, $paragraph, $parobj);
-
-  } elsif ($command eq 'head4') {
-
-    $self->head(4, $paragraph, $parobj);
-
-  } elsif ($command eq 'head5') {
-
-    $self->head(5, $paragraph, $parobj);
-
-  } elsif ($command eq 'head6') {
-
-    $self->head(6, $paragraph, $parobj);
-
-  } elsif ($command eq 'begin') {
-
-    # pass through if latex
-    if ($paragraph =~ /^latex/i) {
-      # Make sure that subsequent paragraphs are not modfied before printing
-      $self->{_dont_modify_any_para} = 1;
-
-    } else {
-      # Suppress all subsequent paragraphs unless 
-      # it is explicitly intended for latex
-      $self->{_suppress_all_para} = 1;
-    }
-
-  } elsif ($command eq 'for') {
-
-    # =for latex
-    #   some latex
-
-    # With =for we will get the text for the full paragraph
-    # as well as the format name.
-    # We do not get an additional paragraph later on. The next
-    # paragraph is not governed by the =for
-
-    # The first line contains the format and the rest is the
-    # raw code.
-    my ($format, $chunk) = split(/\n/, $rawpara, 2);
-
-    # If we have got some latex code print it out immediately
-    # unmodified. Else do nothing.
-    if ($format =~ /^latex/i) {
-      # Make sure that next paragraph is not modfied before printing
-      $self->_output( $chunk );
-
-    }
-
-  } elsif ($command eq 'end') {
-
-    # Reset suppression
-    $self->{_suppress_all_para} = 0;
-    $self->{_dont_modify_any_para} = 0;
-
-  } elsif ($command eq 'pod') {
-
-    # Do nothing
-
-  } else {
-    carp "Command $command not recognised at line $line_num\n";
-  }
-
-}
-
-=item B<verbatim>
-
-Verbatim text
-
-=cut
-
-sub verbatim {
-  my $self = shift;
-  my ($paragraph, $line_num, $parobj) = @_;
-
-  # Expand paragraph unless in =begin block
-  if ($self->{_dont_modify_any_para}) {
-    # Just print as is
-    $self->_output($paragraph);
-
-  } else {
-
-    return if $paragraph =~ /^\s+$/;
-
-    # Clean trailing space
-    $paragraph =~ s/\s+$//;
-
-    # Clean tabs. Routine taken from Tabs.pm
-    # by David Muir Sharnoff muir@idiom.com,
-    # slightly modified by hsmyers@sdragons.com 10/22/01
-    my @l = split("\n",$paragraph);
-    foreach (@l) {
-      1 while s/(^|\n)([^\t\n]*)(\t+)/
-       $1. $2 . (" " x 
-                 (8 * length($3)
-                  - (length($2) % 8)))
-         /sex;
-    }
-    $paragraph = join("\n",@l);
-    # End of change.
-
-
-
-    $self->_output('\begin{verbatim}' . "\n$paragraph\n". '\end{verbatim}'."\n");
-  }
-}
-
-=item B<textblock>
-
-Plain text paragraph.
-
-=cut
-
-sub textblock {
-  my $self = shift;
-  my ($paragraph, $line_num, $parobj) = @_;
-
-  # print Dumper($self);
-
-  # Expand paragraph unless in =begin block
-  if ($self->{_dont_modify_any_para}) {
-    # Just print as is
-    $self->_output($paragraph);
-
-    return;
-  }
-
-
-  # Escape latex special characters
-  $paragraph = $self->_replace_special_chars($paragraph);
-
-  # Interpolate interior sequences
-  my $expansion = $self->interpolate($paragraph, $line_num);
-  $expansion =~ s/\s+$//;
-
-  # Escape special characters that can not be done earlier
-  $expansion = $self->_replace_special_chars_late($expansion);
-
-  # If we are replacing 'head1 NAME' with a section
-  # we need to look in the paragraph and rewrite things
-  # Need to make sure this is called only on the first paragraph
-  # following 'head1 NAME' and not on subsequent paragraphs that may be
-  # present.
-  if ($self->{_CURRENT_HEAD1} =~ /^NAME/i && $self->ReplaceNAMEwithSection()) {
-
-    # Strip white space from start and end
-    $paragraph =~ s/^\s+//;
-    $paragraph =~ s/\s$//;
-
-    # Split the string into 2 parts
-    my ($name, $purpose) = split(/\s+-\s+/, $expansion,2);
-
-    # Now prevent this from triggering until a new head1 NAME is set
-    $self->{_CURRENT_HEAD1} = '_NAME';
-
-    # Might want to clear the Label() before doing this (CHECK)
-
-    # Print the heading
-    $self->head(1, $name, $parobj);
-
-    # Set the labeling in case we want unique names later
-    $self->Label( $self->_create_label( $name, 1 ) );
-
-    # Raise the Head1Level by one so that subsequent =head1 appear
-    # as subsections of the main name section unless we are already
-    # at maximum [Head1Level() could check this itself - CHECK]
-    $self->Head1Level( $self->Head1Level() + 1)
-      unless $self->Head1Level == $#LatexSections;
-
-    # Now write out the new latex paragraph
-    $purpose = ucfirst($purpose);
-    $self->_output("\n\n$purpose\n\n");
-
-  } else {
-    # Just write the output
-    $self->_output("\n\n$expansion\n\n");
-  }
-
-}
-
-=item B<interior_sequence>
-
-Interior sequence expansion
-
-=cut
-
-sub interior_sequence {
-  my $self = shift;
-
-  my ($seq_command, $seq_argument, $pod_seq) = @_;
-
-  if ($seq_command eq 'B') {
-    return "\\textbf{$seq_argument}";
-
-  } elsif ($seq_command eq 'I') {
-    return "\\textit{$seq_argument}";
-
-  } elsif ($seq_command eq 'E') {
-
-    # If it is simply a number
-    if ($seq_argument =~ /^\d+$/) {
-      return chr($seq_argument);
-    # Look up escape in hash table
-    } elsif (exists $HTML_Escapes{$seq_argument}) {
-      return $HTML_Escapes{$seq_argument};
-
-    } else {
-      my ($file, $line) = $pod_seq->file_line();
-      warn "Escape sequence $seq_argument not recognised at line $line of file $file\n";
-      return;
-    }
-
-  } elsif ($seq_command eq 'Z') {
-
-    # Zero width space
-    return '{}';
-
-  } elsif ($seq_command eq 'C') {
-    return "\\texttt{$seq_argument}";
-
-  } elsif ($seq_command eq 'F') {
-    return "\\emph{$seq_argument}";
-
-  } elsif ($seq_command eq 'S') {
-    # non breakable spaces
-    my $nbsp = '~';
-
-    $seq_argument =~ s/\s/$nbsp/g;
-    return $seq_argument;
-
-  } elsif ($seq_command eq 'L') {
-    my $link = new Pod::Hyperlink($seq_argument);
-
-    # undef on failure
-    unless (defined $link) {
-      carp $@;
-      return;
-    }
-
-    # Handle internal links differently
-    my $type = $link->type;
-    my $page = $link->page;
-
-    if ($type eq 'section' && $page eq '') {
-      # Use internal latex reference 
-      my $node = $link->node;
-
-      # Convert to a label
-      $node = $self->_create_label($node);
-
-      return "\\S\\ref{$node}";
-
-    } else {
-      # Use default markup for external references
-      # (although Starlink would use \xlabel)
-      my $markup = $link->markup;
-      my ($file, $line) = $pod_seq->file_line();
-
-      return $self->interpolate($link->markup, $line);
-    }
-
-
-
-  } elsif ($seq_command eq 'P') {
-    # Special markup for Pod::Hyperlink
-    # Replace :: with / - but not sure if I want to do this
-    # any more.
-    my $link = $seq_argument;
-    $link =~ s|::|/|g;
-
-    my $ref = "\\emph{$seq_argument}";
-    return $ref;
-
-  } elsif ($seq_command eq 'Q') {
-    # Special markup for Pod::Hyperlink
-    return "\\textsf{$seq_argument}";
-
-  } elsif ($seq_command eq 'X') {
-    # Index entries
-
-    # use \index command
-    # I will let '!' go through for now
-    # not sure how sub categories are handled in X<>
-    my $index = $self->_create_index($seq_argument);
-    return "\\index{$index}\n";
-
-  } else {
-    carp "Unknown sequence $seq_command<$seq_argument>";
-  }
-
-}
-
-=back
-
-=head2 List Methods
-
-Methods used to handle lists.
-
-=over 4
-
-=item B<begin_list>
-
-Called when a new list is found (via the C<over> directive).
-Creates a new C<Pod::List> object and stores it on the 
-list stack.
-
-  $parser->begin_list($indent, $line_num);
-
-=cut
-
-sub begin_list {
-  my $self = shift;
-  my $indent = shift;
-  my $line_num = shift;
-
-  # Indicate that a list should be started for the next item
-  # need to do this to work out the type of list
-  push ( @{$self->lists}, new Pod::List(-indent => $indent, 
-                                       -start => $line_num,
-                                       -file => $self->input_file,
-                                      )         
-       );
-
-}
-
-=item B<end_list>
-
-Called when the end of a list is found (the C<back> directive).
-Pops the C<Pod::List> object off the stack of lists and writes
-the C<latex> code required to close a list.
-
-  $parser->end_list($line_num);
-
-=cut
-
-sub end_list {
-  my $self = shift;
-  my $line_num = shift;
-
-  unless (defined $self->lists->[-1]) {
-    my $file = $self->input_file;
-    warn "No list is active at line $line_num (file=$file). Missing =over?\n";
-    return;
-  }
-
-  # What to write depends on list type
-  my $type = $self->lists->[-1]->type;
-
-  # Don't write anything if the list type is not set
-  # iomplying that a list was created but no entries were
-  # placed in it (eg because of a =begin/=end combination)
-  $self->_output("\\end{$type}\n")
-    if (defined $type && length($type) > 0);
-  
-  # Clear list
-  pop(@{ $self->lists});
-
-}
-
-=item B<add_item>
-
-Add items to the list. The first time an item is encountered 
-(determined from the state of the current C<Pod::List> object)
-the type of list is determined (ordered, unnumbered or description)
-and the relevant latex code issued.
-
-  $parser->add_item($paragraph, $line_num);
-
-=cut
-
-sub add_item {
-  my $self = shift;
-  my $paragraph = shift;
-  my $line_num = shift;
-
-  unless (defined $self->lists->[-1]) {
-    my $file = $self->input_file;
-    warn "List has already ended by line $line_num of file $file. Missing =over?\n";
-    # Replace special chars
-#    $paragraph = $self->_replace_special_chars($paragraph);
-    $self->_output("$paragraph\n\n");
-    return;
-  }
-
-  # If paragraphs printing is turned off via =begin/=end or whatever
-  # simply return immediately
-  return if $self->{_suppress_all_para};
-
-  # Check to see whether we are starting a new lists
-  if (scalar($self->lists->[-1]->item) == 0) {
-
-    # Examine the paragraph to determine what type of list
-    # we have
-    $paragraph =~ s/\s+$//;
-    $paragraph =~ s/^\s+//;
-
-    my $type;
-    if (substr($paragraph, 0,1) eq '*') {
-      $type = 'itemize';
-    } elsif ($paragraph =~ /^\d/) {
-      $type = 'enumerate';
-    } else {
-      $type = 'description';
-    }
-    $self->lists->[-1]->type($type);
-
-    $self->_output("\\begin{$type}\n");
-
-  }
-
-  my $type = $self->lists->[-1]->type;
-
-  if ($type eq 'description') {
-    # Handle long items - long items do not wrap
-    # If the string is longer than 40 characters we split
-    # it into a real item header and some bold text.
-    my $maxlen = 40;
-    my ($hunk1, $hunk2) = $self->_split_delimited( $paragraph, $maxlen );
-
-    # Print the first hunk
-    $self->_output("\n\\item[{$hunk1}] ");
-
-    # and the second hunk if it is defined
-    if ($hunk2) {
-      $self->_output("\\textbf{$hunk2}");
-    } else {
-      # Not there so make sure we have a new line
-      $self->_output("\\mbox{}");
-    }
-
-  } else {
-    # If the item was '* Something' or '\d+ something' we still need to write
-    # out the something. Also allow 1) and 1.
-    my $extra_info = $paragraph;
-    $extra_info =~ s/^(\*|\d+[\.\)]?)\s*//;
-    $self->_output("\n\\item $extra_info");
-  }
-
-  # Store the item name in the object. Required so that 
-  # we can tell if the list is new or not
-  $self->lists->[-1]->item($paragraph);
-
-}
-
-=back
-
-=head2 Methods for headings
-
-=over 4
-
-=item B<head>
-
-Print a heading of the required level.
-
-  $parser->head($level, $paragraph, $parobj);
-
-The first argument is the pod heading level. The second argument
-is the contents of the heading. The 3rd argument is a Pod::Paragraph
-object so that the line number can be extracted.
-
-=cut
-
-sub head {
-  my $self = shift;
-  my $num = shift;
-  my $paragraph = shift;
-  my $parobj = shift;
-
-  # If we are replace 'head1 NAME' with a section
-  # we return immediately if we get it
-  return 
-    if ($self->{_CURRENT_HEAD1} =~ /^NAME/i && $self->ReplaceNAMEwithSection());
-
-  # Create a label
-  my $label = $self->_create_label($paragraph);
-
-  # Create an index entry
-  my $index = $self->_create_index($paragraph);
-
-  # Work out position in the above array taking into account
-  # that =head1 is equivalent to $self->Head1Level
-
-  my $level = $self->Head1Level() - 1 + $num;
-
-  # Warn if heading to large
-  if ($num > $#LatexSections) {
-    my $line = $parobj->file_line;
-    my $file = $self->input_file;
-    warn "Heading level too large ($level) for LaTeX at line $line of file $file\n";
-    $level = $#LatexSections;
-  }
-
-  # Check to see whether section should be unnumbered
-  my $star = ($level >= $self->LevelNoNum ? '*' : '');
-
-  # Section
-  $self->_output("\\" .$LatexSections[$level] .$star ."{$paragraph\\label{".$label ."}\\index{".$index."}}\n");
-
-}
-
-
-=back
-
-=end __PRIVATE__
-
-=begin __PRIVATE__
-
-=head2 Internal methods
-
-Internal routines are described in this section. They do not form part of the
-public interface. All private methods start with an underscore.
-
-=over 4
-
-=item B<_output>
-
-Output text to the output filehandle. This method must be always be called
-to output parsed text.
-
-   $parser->_output($text);
-
-Does not write anything if a =begin is active that should be
-ignored.
-
-=cut
-
-sub _output { 
-  my $self = shift;
-  my $text = shift;
-
-  print { $self->output_handle } $text
-    unless $self->{_suppress_all_para};
-
-}
-
-
-=item B<_replace_special_chars>
-
-Subroutine to replace characters that are special in C<latex>
-with the escaped forms
-
-  $escaped = $parser->_replace_special_chars($paragraph);
-
-Need to call this routine before interior_sequences are munged but not
-if verbatim. It must be called before interpolation of interior
-sequences so that curly brackets and special latex characters inserted
-during interpolation are not themselves escaped. This means that < and
-> can not be modified here since the text still contains interior
-sequences.
-
-Special characters and the C<latex> equivalents are:
-
-  }     \}
-  {     \{
-  _     \_
-  $     \$
-  %     \%
-  &     \&
-  \     $\backslash$
-  ^     \^{}
-  ~     \~{}
-  #     \#
-
-=cut
-
-sub _replace_special_chars {
-  my $self = shift;
-  my $paragraph = shift;
-
-  # Replace a \ with $\backslash$
-  # This is made more complicated because the dollars will be escaped
-  # by the subsequent replacement. Easiest to add \backslash 
-  # now and then add the dollars
-  $paragraph =~ s/\\/\\backslash/g;
-
-  # Must be done after escape of \ since this command adds latex escapes
-  # Replace characters that can be escaped
-  $paragraph =~ s/([\$\#&%_{}])/\\$1/g;
-
-  # Replace ^ characters with \^{} so that $^F works okay
-  $paragraph =~ s/(\^)/\\$1\{\}/g;
-
-  # Replace tilde (~) with \texttt{\~{}}
-  $paragraph =~ s/~/\\texttt\{\\~\{\}\}/g;
-
-  # Now add the dollars around each \backslash
-  $paragraph =~ s/(\\backslash)/\$$1\$/g;
-
-  # Convert ------ to -{}-{}-{}-{}-{}-
-  $paragraph =~ s/-(?=-)/-{}/g;
-
-  return $paragraph;
-}
-
-=item B<_replace_special_chars_late>
-
-Replace special characters that can not be replaced before interior
-sequence interpolation. See C<_replace_special_chars> for a routine
-to replace special characters prior to interpolation of interior
-sequences.
-
-Does the following transformation:
-
-  <   $<$
-  >   $>$
-  |   $|$
-
-
-=cut
-
-sub _replace_special_chars_late {
-  my $self = shift;
-  my $paragraph = shift;
-
-  # < and >
-  $paragraph =~ s/(<|>)/\$$1\$/g;
-
-  # Replace | with $|$
-  $paragraph =~ s'\|'$|$'g;
-
-
-  return $paragraph;
-}
-
-
-=item B<_create_label>
-
-Return a string that can be used as an internal reference
-in a C<latex> document (i.e. accepted by the C<\label> command)
-
- $label = $parser->_create_label($string)
-
-If UniqueLabels is true returns a label prefixed by Label()
-This can be suppressed with an optional second argument.
-
- $label = $parser->_create_label($string, $suppress);
-
-If a second argument is supplied (of any value including undef)
-the Label() is never prefixed. This means that this routine can
-be called to create a Label() without prefixing a previous setting.
-
-=cut
-
-sub _create_label {
-  my $self = shift;
-  my $paragraph = shift;
-  my $suppress = (@_ ? 1 : 0 );
-
-  # Remove latex commands
-  $paragraph = $self->_clean_latex_commands($paragraph);
-
-  # Remove non alphanumerics from the label and replace with underscores
-  # want to protect '-' though so use negated character classes 
-  $paragraph =~ s/[^-:\w]/_/g;
-
-  # Multiple underscores will look unsightly so remove repeats
-  # This will also have the advantage of tidying up the end and
-  # start of string
-  $paragraph =~ s/_+/_/g;
-
-  # If required need to make sure that the label is unique
-  # since it is possible to have multiple pods in a single
-  # document
-  if (!$suppress && $self->UniqueLabels() && defined $self->Label) {
-    $paragraph = $self->Label() .'_'. $paragraph;
-  }
-
-  return $paragraph;
-}
-
-
-=item B<_create_index>
-
-Similar to C<_create_label> except an index entry is created.
-If C<UniqueLabels> is true, the index entry is prefixed by 
-the current C<Label> and an exclamation mark.
-
-  $ind = $parser->_create_index($paragraph);
-
-An exclamation mark is used by C<makeindex> to generate 
-sub-entries in an index.
-
-=cut
-
-sub _create_index {
-  my $self = shift;
-  my $paragraph = shift;
-  my $suppress = (@_ ? 1 : 0 );
-
-  # Remove latex commands
-  $paragraph = $self->_clean_latex_commands($paragraph);
-
-  # If required need to make sure that the index entry is unique
-  # since it is possible to have multiple pods in a single
-  # document
-  if (!$suppress && $self->UniqueLabels() && defined $self->Label) {
-    $paragraph = $self->Label() .'!'. $paragraph;
-  }
-
-  # Need to replace _ with space
-  $paragraph =~ s/_/ /g;
-
-  return $paragraph;
-
-}
-
-=item B<_clean_latex_commands>
-
-Removes latex commands from text. The latex command is assumed to be of the
-form C<\command{ text }>. "C<text>" is retained
-
-  $clean = $parser->_clean_latex_commands($text);
-
-=cut
-
-sub _clean_latex_commands {
-  my $self = shift;
-  my $paragraph = shift;
-
-  # Remove latex commands of the form \text{ }
-  # and replace with the contents of the { }
-  # need to make this non-greedy so that it can handle
-  #  "\text{a} and \text2{b}"
-  # without converting it to
-  #  "a} and \text2{b"
-  # This match will still get into trouble if \} is present 
-  # This is not vital since the subsequent replacement of non-alphanumeric
-  # characters will tidy it up anyway
-  $paragraph =~ s/\\\w+{(.*?)}/$1/g;
-
-  return $paragraph
-}
-
-=item B<_split_delimited>
-
-Split the supplied string into two parts at approximately the
-specified word boundary. Special care is made to make sure that it
-does not split in the middle of some curly brackets.
-
-e.g. "this text is \textbf{very bold}" would not be split into
-"this text is \textbf{very" and " bold".
-
-  ($hunk1, $hunk2) = $self->_split_delimited( $para, $length);
-
-The length indicates the maximum length of hunk1.
-
-=cut
-
-# initially Supplied by hsmyers@sdragons.com
-# 10/25/01, utility to split \hbox
-# busting lines. Reformatted by TimJ to match module style.
-sub _split_delimited {
-  my $self = shift;
-  my $input = shift;
-  my $limit = shift;
-
-  # Return immediately if already small
-  return ($input, '') if length($input) < $limit;
-
-  my @output;
-  my $s = '';
-  my $t = '';
-  my $depth = 0;
-  my $token;
-
-  $input =~ s/\n/ /gm;
-  $input .= ' ';
-  foreach ( split ( //, $input ) ) {
-    $token .= $_;
-    if (/\{/) {
-      $depth++;
-    } elsif ( /}/ ) {
-      $depth--;
-    } elsif ( / / and $depth == 0) {
-      push @output, $token if ( $token and $token ne ' ' );
-      $token = '';
-    }
-  }
-
-  foreach  (@output) {
-    if (length($s) < $limit) {
-      $s .= $_;
-    } else {
-      $t .= $_;
-    }
-  }
-
-  # Tidy up
-  $s =~ s/\s+$//;
-  $t =~ s/\s+$//;
-  return ($s,$t);
-}
-
-=back
-
-=end __PRIVATE__
-
-=head1 NOTES
-
-Compatible with C<latex2e> only. Can not be used with C<latex> v2.09
-or earlier.
-
-A subclass of C<Pod::Select> so that specific pod sections can be
-converted to C<latex> by using the C<select> method.
-
-Some HTML escapes are missing and many have not been tested.
-
-=head1 SEE ALSO
-
-L<Pod::Parser>, L<Pod::Select>, L<pod2latex>, L<Pod::Simple>.
-
-=head1 AUTHORS
-
-Tim Jenness E<lt>tjenness@cpan.orgE<gt>
-
-Bug fixes and improvements have been received from: Simon Cozens
-E<lt>simon@cozens.netE<gt>, Mark A. Hershberger
-E<lt>mah@everybody.orgE<gt>, Marcel Grunauer
-E<lt>marcel@codewerk.comE<gt>, Hugh S Myers
-E<lt>hsmyers@sdragons.comE<gt>, Peter J Acklam
-E<lt>jacklam@math.uio.noE<gt>, Sudhi Herle E<lt>sudhi@herle.netE<gt>,
-Ariel Scolnicov E<lt>ariels@compugen.co.ilE<gt>,
-Adriano Rodrigues Ferreira E<lt>ferreira@triang.com.brE<gt>,
-R. de Vries E<lt>r.de.vries@dutchspace.nlE<gt> and
-Dave Mitchell E<lt>davem@iabyn.comE<gt>.
-
-=head1 COPYRIGHT
-
-Copyright (C) 2011 Tim Jenness.
-Copyright (C) 2000-2004 Tim Jenness. All Rights Reserved.
-
-This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=begin __PRIVATE__
-
-=head1 REVISION
-
-$Id$
-
-=end __PRIVATE__
-
-=cut
-
-1;
diff --git a/cpan/Pod-LaTeX/pod2latex.PL b/cpan/Pod-LaTeX/pod2latex.PL
deleted file mode 100644 (file)
index 23e6820..0000000
+++ /dev/null
@@ -1,421 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate.  Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries.  Thus you write
-#  $startperl
-# to ensure Configure will look for $Config{startperl}.
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir dirname($0);
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{startperl}
-    eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
-       if \$running_under_some_shell;
-!GROK!THIS!
-
-# In the following, perl variables are not expanded during extraction.
-
-print OUT <<'!NO!SUBS!';
-
-# pod2latex conversion program
-
-use strict;
-use Pod::LaTeX;
-use Pod::Find qw/ pod_find /;
-use Pod::Usage;
-use Getopt::Long;
-use File::Basename;
-use Symbol;
-
-my $VERSION = "1.01";
-
-# return the entire contents of a text file
-# whose name is given as argument
-sub _get {
-    my $fn = shift;
-    my $infh = gensym;
-    open $infh, $fn
-        or die "Could not open file $fn: $!\n";
-    local $/;
-    return <$infh>;
-}
-
-# Read command line arguments
-
-my %options = (
-              "help"   => 0,
-              "man"    => 0,
-              "sections" => [],
-              "full"   => 0,
-              "out"    => undef,
-              "verbose" => 0,
-              "modify" => 0,
-              "h1level" => 1,  # section is equivalent to H1
-              "preamble" => [],
-              "postamble" => [],
-             );
-# "prefile" is just like "preamble", but the argument 
-# comes from the file named by the argument
-$options{"prefile"} = sub { shift; push @{$options{"preamble"}}, _get(shift) };
-# the same between "postfile" and "postamble"
-$options{"postfile"} = sub { shift; push @{$options{"postamble"}}, _get(shift) };
-
-GetOptions(\%options, 
-          "help",
-          "man",
-          "verbose",
-          "full",
-          "sections=s@",
-          "out=s",
-          "modify",
-          "h1level=i",
-          "preamble=s@",
-          "postamble=s@",
-          "prefile=s", 
-          "postfile=s"
-         ) || pod2usage(2);
-
-pod2usage(1)  if ($options{help});
-pod2usage(-verbose => 2)  if ($options{man});
-
-
-# Read all the files from the command line
-my @files = @ARGV;
-
-# Now find which ones are real pods and convert 
-# directories to their contents.
-
-# Extract the pods from each arg since some of them might
-# be directories
-# This is not as efficient as using pod_find to search through
-# everything at once but it allows us to preserve the order 
-# supplied by the user
-
-my @pods;
-foreach my $arg (@files) {
-  my %pods = pod_find($arg);
-  push(@pods, sort keys %pods);
-}
-
-# Abort if nothing to do
-if ($#pods == -1) {
-  warn "None of the supplied Pod files actually exist\n";
-  exit;
-}
-
-# Only want to override the preamble and postamble if we have
-# been given values.
-my %User;
-$User{UserPreamble} = join("\n", @{$options{'preamble'}})
-  if ($options{preamble} && @{$options{preamble}});
-$User{UserPostamble} = join("\n", @{$options{'postamble'}})
-  if ($options{postamble} && @{$options{postamble}});
-
-
-
-# If $options{'out'} is set we are processing to a single output file
-my $multi_documents;
-if (exists $options{'out'} && defined $options{'out'}) {
-  $multi_documents = 0;
-} else {
-  $multi_documents = 1;
-}
-
-# If the output file is not specified it is assumed that
-# a single output file is required per input file using
-# a .tex extension rather than any existing extension
-
-if ($multi_documents) {
-
-  # Case where we just generate one input per output
-
-  foreach my $pod (@pods) {
-
-    if (-f $pod) {
-
-      my $output = $pod;
-      $output = basename($output, '.pm', '.pod','.pl') . '.tex';
-
-      # Create a new parser object
-      my $parser = new Pod::LaTeX(
-                                 AddPreamble => $options{'full'},
-                                 AddPostamble => $options{'full'},
-                                 MakeIndex => $options{'full'},
-                                 TableOfContents => $options{'full'},
-                                 ReplaceNAMEwithSection => $options{'modify'},
-                                 UniqueLabels => $options{'modify'},
-                                 Head1Level => $options{'h1level'},
-                                 LevelNoNum => $options{'h1level'} + 1,
-                                  %User,
-                                );
-
-      # Select sections if supplied
-      $parser->select(@{ $options{'sections'}})
-       if @{$options{'sections'}};
-
-      # Derive the input file from the output file
-      $parser->parse_from_file($pod, $output);
-
-      print "Written output to $output\n" if $options{'verbose'};
-
-    } else {
-      warn "File $pod not found\n";
-    }
-
-  }
-} else {
-
-  # Case where we want everything to be in a single document
-
-  # Need to open the output file ourselves
-  my $output = $options{'out'};
-  $output .= '.tex' unless $output =~ /\.tex$/;
-
-  # Use auto-vivified file handle in perl 5.6
-  my $outfh = gensym;
-  open ($outfh, ">$output") || die "Could not open output file: $!\n";
-
-  # Flag to indicate whether we have converted at least one file
-  # indicates how many files have been converted
-  my $converted = 0;
-
-  # Loop over the input files
-  foreach my $pod (@pods) {
-
-    if (-f $pod) {
-
-      warn "Converting $pod\n" if $options{'verbose'};
-
-      # Open the file (need the handle)
-      # Use auto-vivified handle in perl 5.6
-      my $podfh = gensym;
-      open ($podfh, "<$pod") || die "Could not open pod file $pod: $!\n";
-
-      # if this is the first file to be converted we may want to add
-      # a preamble (controlled by command line option)
-      my $preamble = 0;
-      $preamble = 1 if ($converted == 0 && $options{'full'});
-
-      # if this is the last file to be converted may want to add
-      # a postamble (controlled by command line option)
-      # relies on a previous pass to check existence of all pods we
-      # are converting.
-      my $postamble = ( ($converted == $#pods && $options{'full'}) ? 1 : 0 );
-
-      # Open parser object
-      # May want to start with a preamble for the first one and
-      # end with an index for the last
-      my $parser = new Pod::LaTeX(
-                                 MakeIndex => $options{'full'},
-                                 TableOfContents => $preamble,
-                                 ReplaceNAMEwithSection => $options{'modify'},
-                                 UniqueLabels => $options{'modify'},
-                                 StartWithNewPage => $options{'full'},
-                                 AddPreamble => $preamble,
-                                 AddPostamble => $postamble,
-                                 Head1Level => $options{'h1level'},
-                                 LevelNoNum => $options{'h1level'} + 1,
-                                  %User
-                                );
-
-      # Store the file name for error messages
-      # This is a kluge that breaks the data hiding of the object
-      $parser->{_INFILE} = $pod;
-
-      # Select sections if supplied
-      $parser->select(@{ $options{'sections'}})
-       if @{$options{'sections'}};
-
-      # Parse it
-      $parser->parse_from_filehandle($podfh, $outfh);
-
-      # We have converted at least one file
-      $converted++;
-
-    } else {
-      warn "File $pod not found\n";
-    }
-
-  }
-
-  # Should unlink the file if we didn't convert anything!
-  # dont check for return status of unlink
-  # since there is not a lot to be done if the unlink failed
-  # and the program does not rely upon it.
-  unlink "$output" unless $converted;
-
-  # If verbose
-  warn "Converted $converted files\n" if $options{'verbose'};
-
-}
-
-exit;
-
-__END__
-
-=head1 NAME
-
-pod2latex - convert pod documentation to latex format
-
-=head1 SYNOPSIS
-
-  pod2latex *.pm
-
-  pod2latex -out mytex.tex *.pod
-
-  pod2latex -full -sections 'DESCRIPTION|NAME' SomeDir
-
-  pod2latex -prefile h.tex -postfile t.tex my.pod
-
-=head1 DESCRIPTION
-
-C<pod2latex> is a program to convert POD format documentation
-(L<perlpod>) into latex. It can process multiple input documents at a
-time and either generate a latex file per input document or a single
-combined output file.
-
-=head1 OPTIONS AND ARGUMENTS
-
-This section describes the supported command line options. Minimum
-matching is supported.
-
-=over 4
-
-=item B<-out>
-
-Name of the output file to be used. If there are multiple input pods
-it is assumed that the intention is to write all translated output
-into a single file. C<.tex> is appended if not present.  If the
-argument is not supplied, a single document will be created for each
-input file.
-
-=item B<-full>
-
-Creates a complete C<latex> file that can be processed immediately
-(unless C<=for/=begin> directives are used that rely on extra packages).
-Table of contents and index generation commands are included in the
-wrapper C<latex> code.
-
-=item B<-sections>
-
-Specify pod sections to include (or remove if negated) in the
-translation.  See L<Pod::Select/"SECTION SPECIFICATIONS"> for the
-format to use for I<section-spec>. This option may be given multiple
-times on the command line.This is identical to the similar option in
-the C<podselect()> command.
-
-=item B<-modify>
-
-This option causes the output C<latex> to be slightly
-modified from the input pod such that when a C<=head1 NAME>
-is encountered a section is created containing the actual
-pod name (rather than B<NAME>) and all subsequent C<=head1>
-directives are treated as subsections. This has the advantage
-that the description of a module will be in its own section
-which is helpful for including module descriptions in documentation.
-Also forces C<latex> label and index entries to be prefixed by the
-name of the module.
-
-=item B<-h1level>
-
-Specifies the C<latex> section that is equivalent to a C<H1> pod
-directive. This is an integer between 0 and 5 with 0 equivalent to a
-C<latex> chapter, 1 equivalent to a C<latex> section etc. The default
-is 1 (C<H1> equivalent to a latex section).
-
-=item B<-help>
-
-Print a brief help message and exit.
-
-=item B<-man>
-
-Print the manual page and exit.
-
-=item B<-verbose>
-
-Print information messages as each document is processed.
-
-=item B<-preamble>
-
-A user-supplied preamble for the LaTeX code. Multiple values
-are supported and appended in order separated by "\n".
-See B<-prefile> for reading the preamble from a file.
-
-=item B<-postamble>
-
-A user supplied postamble for the LaTeX code. Multiple values
-are supported and appended in order separated by "\n".
-See B<-postfile> for reading the postamble from a file.
-
-=item B<-prefile>
-
-A user-supplied preamble for the LaTeX code to be read from the
-named file. Multiple values are supported and appended in
-order. See B<-preamble>.
-
-=item B<-postfile>
-
-A user-supplied postamble for the LaTeX code to be read from the
-named file. Multiple values are supported and appended in
-order. See B<-postamble>.
-
-=back
-
-=head1 BUGS
-
-Known bugs are:
-
-=over 4
-
-=item *
-
-Cross references between documents are not resolved when multiple
-pod documents are converted into a single output C<latex> file.
-
-=item *
-
-Functions and variables are not automatically recognized
-and they will therefore not be marked up in any special way
-unless instructed by an explicit pod command.
-
-=back
-
-=head1 SEE ALSO
-
-L<Pod::LaTeX>
-
-=head1 AUTHOR
-
-Tim Jenness E<lt>tjenness@cpan.orgE<gt>
-
-This program is free software; you can redistribute it
-and/or modify it under the same terms as Perl itself.
-
-Copyright (C) 2000, 2003, 2004 Tim Jenness. All Rights Reserved.
-
-=cut
-
-!NO!SUBS!
-
-close OUT or die "Can't close $file: $!";
-chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
-exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
-chdir $origdir;
diff --git a/cpan/Pod-LaTeX/t/pod2latex.t b/cpan/Pod-LaTeX/t/pod2latex.t
deleted file mode 100644 (file)
index 7a003d9..0000000
+++ /dev/null
@@ -1,399 +0,0 @@
-#!perl
-# Test that Pod::LaTeX works
-# This test relies on the DATA filehandle
-# DATA contains the latex that is used for comparison
-# and the pod that was used to generate it. The two
-# are separated by '=pod'
-# Note that if the translator is adjusted the output tex
-# will probably not match what is currently there. You
-# will need to adjust it to match (assuming it is correct).
-
-use Test::More tests => 177;
-use strict;
-
-# The link parsing changed between v0.22 and v0.30 of Pod::ParseUtils
-use Pod::ParseUtils;
-my $linkver = $Pod::ParseUtils::VERSION;
-
-BEGIN {
-  use_ok( "Pod::LaTeX" );
-}
-
-# Set up an END block to remove the test output file
-END {
-  unlink "test.tex";
-};
-
-# First thing to do is to read the expected output from
-# the DATA filehandle and store it in a scalar.
-# Do this until we read an =pod
-my @reference;
-while (my $line = <DATA>) {
-  last if $line =~ /^=pod/;
-  push(@reference,$line);
-}
-
-# Create a new parser
-my $parser = Pod::LaTeX->new;
-isa_ok($parser, "Pod::LaTeX");
-$parser->Head1Level(1);
-# Add the preamble but remember not to compare the timestamps
-$parser->AddPreamble(1);
-$parser->AddPostamble(1);
-
-# For a laugh add a table of contents
-$parser->TableOfContents(1);
-
-# Create an output file
-open(OUTFH, "> test.tex" ) or die "Unable to open test tex file: $!\n";
-
-# Read from the DATA filehandle and write to a new output file
-# Really want to write this to a scalar
-$parser->parse_from_filehandle(\*DATA,\*OUTFH);
-
-close(OUTFH) or die "Error closing OUTFH test.tex: $!\n";
-
-# Now read in OUTFH and compare
-open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n";
-my @output = <INFH>;
-
-is(scalar @output, scalar @reference, "Count lines");
-for my $i (0..$#reference) {
-  next if $reference[$i] =~ /^%%/; # skip timestamp comments
-
-  # if we are running a new version of Pod::ParseUtils we need
-  # to change the link text. This is a kluge until we drop support
-  # for older versions of Pod::ParseUtils
-  if ($linkver < 0.29 && $output[$i] =~ /manpage/) {
-    # convert our expectations from new to old new format 
-    $reference[$i] =~ s/Standard link: \\emph\{Pod::LaTeX\}/Standard link: the \\emph\{Pod::LaTeX\} manpage/;
-    $reference[$i] =~ s/\\textsf\{sec\} in \\emph\{Pod::LaTeX\}/the section on \\textsf\{sec\} in the \\emph\{Pod::LaTeX\} manpage/;
-  }
-  is($output[$i], $reference[$i], "Check line $i");
-}
-
-close(INFH) or die "Error closing INFH test.tex: $!\n";
-
-
-__DATA__
-\documentclass{article}
-\usepackage[T1]{fontenc}
-\usepackage{textcomp}
-
-%%  Latex generated from POD in document (unknown)
-%%  Using the perl module Pod::LaTeX
-%%  Converted on Sat Apr  5 21:16:02 2003
-
-
-\usepackage{makeidx}
-\makeindex
-
-
-\begin{document}
-
-\tableofcontents
-
-\section{Introduction\label{Introduction}\index{Introduction}}
-\begin{itemize}
-
-\item 
-
-Always check the return codes of system calls. Good error messages should
-go to STDERR, include which program caused the problem, what the failed
-system call and arguments were, and (\textbf{very important}) should contain
-the standard system error message for what went wrong. Here's a simple
-but sufficient example:
-
-\begin{verbatim}
-        opendir(D, $dir) or die "can't opendir $dir: $!";
-\end{verbatim}
-
-\item 
-
-Line up your transliterations when it makes sense:
-
-\begin{verbatim}
-        tr [abc]
-           [xyz];
-\end{verbatim}
-
-
-The above should be aligned since it includes an embedded tab.
-
-
-\item 
-
-Think about reusability. Why waste brainpower on a one-shot when you
-might want to do something like it again? Consider generalizing your
-code. Consider writing a module or object class. Consider making your
-code run cleanly with \texttt{use strict} and \texttt{-w} (or \texttt{use warnings} in
-Perl 5.6) in effect. Consider giving away your code. Consider changing
-your whole world view. Consider... oh, never mind.
-
-
-\item 
-
-Be consistent.
-
-
-\item 
-
-Be nice.
-
-\end{itemize}
-\section{Links\label{Links}\index{Links}}
-
-
-This link should just include one word: \textsf{Pod::LaTeX}
-
-
-
-This link should include the text \texttt{test} even though
-it refers to \texttt{Pod::LaTeX}: \textsf{test}.
-
-
-
-Standard link: \emph{Pod::LaTeX}.
-
-
-
-Now refer to an external section: \textsf{sec} in \emph{Pod::LaTeX}
-
-\section{Lists\label{Lists}\index{Lists}}
-
-
-Test description list with long lines
-
-\begin{description}
-
-\item[{Some short text}] \mbox{}
-
-Some additional para.
-
-\begin{itemize}
-
-\item 
-
-Nested itemized list
-
-
-\item 
-
-Second item
-
-\end{itemize}
-
-\item[{some longer text than that}] \mbox{}
-
-and again.
-
-
-\item[{this text is even longer and greater than}] \textbf{40 characters}
-
-Some more content for the item.
-
-
-\item[{this is some text with \textit{something across}}] \textbf{the 40 char boundary}
-
-This is item content.
-
-
-\item[{square [ bracket in item}] \mbox{}
-
-Square bracket content
-
-\end{description}
-
-
-And this should be an enumerated list without any cruft after the numbers or additional numbers at all.
-
-\begin{enumerate}
-
-\item 
-
-item 1
-
-
-\item 
-
-item 2
-
-\end{enumerate}
-\section{Escapes\label{Escapes}\index{Escapes}}
-
-
-Test some normal escapes such as $<$ (lt) and $>$ (gt) and $|$ (verbar) and
-\texttt{\~{}} (tilde) and \& (amp) as well as $<$ (Esc lt) and $|$ (Esc
-verbar) and \textfractionsolidus{} (Esc sol) and $>$ (Esc gt) and \& (Esc amp)
-and " (Esc quot) and even $\alpha$ (Esc alpha).
-
-\section{For blocks\label{For_blocks}\index{For blocks}}
-  Some latex code \textbf{here}.
-
-
-
-Some text that should appear.
-
-
-
-Some more text that should appear
-
-Some latex in a \textsf{begin block}
-
-and some more
-
-\begin{equation}
-a = \frac{3}{2}
-\end{equation}
-
-
-
-Back to pod.
-
-\printindex
-
-\end{document}
-=pod
-
-=head1 Introduction
-
-=over 4
-
-=item *
-
-Always check the return codes of system calls. Good error messages should
-go to STDERR, include which program caused the problem, what the failed
-system call and arguments were, and (B<very important>) should contain
-the standard system error message for what went wrong. Here's a simple
-but sufficient example:
-
-        opendir(D, $dir) or die "can't opendir $dir: $!";
-
-=item *
-
-Line up your transliterations when it makes sense:
-
-        tr [abc]
-          [xyz];
-
-The above should be aligned since it includes an embedded tab.
-
-=item *
-
-Think about reusability. Why waste brainpower on a one-shot when you
-might want to do something like it again? Consider generalizing your
-code. Consider writing a module or object class. Consider making your
-code run cleanly with C<use strict> and C<-w> (or C<use warnings> in
-Perl 5.6) in effect. Consider giving away your code. Consider changing
-your whole world view. Consider... oh, never mind.
-
-=item *
-
-Be consistent.
-
-=item *
-
-Be nice.
-
-=back
-
-=head1 Links
-
-This link should just include one word: L<Pod::LaTeX|Pod::LaTeX>
-
-This link should include the text C<test> even though
-it refers to C<Pod::LaTeX>: L<test|Pod::LaTeX>.
-
-Standard link: L<Pod::LaTeX>.
-
-Now refer to an external section: L<Pod::LaTeX/"sec">
-
-
-=head1 Lists
-
-Test description list with long lines
-
-=over 4
-
-=item Some short text
-
-Some additional para.
-
-=over 4
-
-=item *
-
-Nested itemized list
-
-=item *
-
-Second item
-
-=back
-
-=item some longer text than that
-
-and again.
-
-=item this text is even longer and greater than 40 characters
-
-Some more content for the item.
-
-=item this is some text with I<something across> the 40 char boundary
-
-This is item content.
-
-=item square [ bracket in item
-
-Square bracket content
-
-=back
-
-And this should be an enumerated list without any cruft after the numbers or additional numbers at all.
-
-=over 4
-
-=item 1)
-
-item 1
-
-=item 2.
-
-item 2
-
-=back
-
-=head1 Escapes
-
-Test some normal escapes such as < (lt) and > (gt) and | (verbar) and
-~ (tilde) and & (amp) as well as E<lt> (Esc lt) and E<verbar> (Esc
-verbar) and E<sol> (Esc sol) and E<gt> (Esc gt) and E<amp> (Esc amp)
-and E<quot> (Esc quot) and even E<alpha> (Esc alpha).
-
-=head1 For blocks
-
-=for latex
-  Some latex code \textbf{here}.
-
-Some text that should appear.
-
-=for comment
-  Should not print anything
-
-Some more text that should appear
-
-=begin latex
-
-Some latex in a \textsf{begin block}
-
-and some more
-
-\begin{equation}
-a = \frac{3}{2}
-\end{equation}
-
-=end latex
-
-Back to pod.
-
-=cut
diff --git a/cpan/Pod-LaTeX/t/user.t b/cpan/Pod-LaTeX/t/user.t
deleted file mode 100644 (file)
index bd8c211..0000000
+++ /dev/null
@@ -1,102 +0,0 @@
-#!perl
-
-# Purpose: test UserPreamble and UserPostamble
-# It's a minor variation of 'pod2latex.t',
-# subject to the same limitations.
-#   Variant provided by
-#       Adriano Rodrigues Ferreira <ferreira@triang.com.br>
-
-use Test::More tests => 17;
-use strict;
-
-BEGIN {
-  use_ok( "Pod::LaTeX" );
-}
-
-# The link parsing changed between v0.22 and v0.30 of Pod::ParseUtils
-use Pod::ParseUtils;
-my $linkver = $Pod::ParseUtils::VERSION;
-
-# Set up an END block to remove the test output file
-END {
-  unlink "test.tex";
-};
-
-# First thing to do is to read the expected output from
-# the DATA filehandle and store it in a scalar.
-# Do this until we read an =pod
-my @reference;
-while (my $line = <DATA>) {
-  last if $line =~ /^=pod/;
-  push(@reference,$line);
-}
-
-my $user_preamble = <<PRE;
-
-\\documentclass{article}
-
-\\begin{document}
-PRE
-
-my $user_postamble = <<POST;
-\\end{document}
-
-POST
-
-# Create a new parser
-my %params = (
-       UserPreamble => $user_preamble,
-       UserPostamble => $user_postamble
-);
-
-my $parser = Pod::LaTeX->new(%params);
-isa_ok($parser, "Pod::LaTeX");
-
-# Create an output file
-open(OUTFH, "> test.tex" ) or die "Unable to open test tex file: $!\n";
-
-# Read from the DATA filehandle and write to a new output file
-# Really want to write this to a scalar
-$parser->parse_from_filehandle(\*DATA,\*OUTFH);
-
-close(OUTFH) or die "Error closing OUTFH test.tex: $!\n";
-
-# Now read in OUTFH and compare
-open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n";
-my @output = <INFH>;
-
-is(scalar @output, scalar @reference, "Count lines");
-
-for my $i (0..$#reference) {
-  next if $reference[$i] =~ /^%%/; # skip timestamp comments
-  is($output[$i], $reference[$i], "Compare line $i");
-}
-
-close(INFH) or die "Error closing INFH test.tex: $!\n";
-
-
-__DATA__
-
-\documentclass{article}
-
-\begin{document}
-
-%%  Latex generated from POD in document (unknown)
-%%  Using the perl module Pod::LaTeX
-%%  Converted on Wed Jan 14 19:04:22 2004
-
-%%  Preamble supplied by user.
-
-\section{POD\label{POD}\index{POD}}
-
-
-This is a POD file, very simple. \textit{Bye}.
-
-\end{document}
-
-=pod
-
-=head1 POD
-
-This is a POD file, very simple. I<Bye>.
-
index 5efbcef..01689c0 100644 (file)
 /Pod/Find.pm
 /Pod/Html.pm
 /Pod/InputObjects.pm
-/Pod/LaTeX.pm
 /Pod/Man.pm
 /Pod/ParseLink.pm
 /Pod/ParseUtils.pm
index 289d5b4..8c0e27c 100644 (file)
@@ -44,8 +44,6 @@
 # scripts etc
 /pod2html
 /pod2html.bat
-/pod2latex
-/pod2latex.bat
 /pod2man
 /pod2man.bat
 /pod2text
index 331e15c..28ea35f 100644 (file)
@@ -58,7 +58,6 @@ HTMLROOT = /  # Change this to fix cross-references in HTML
 POD2HTML_ARGS = --htmlroot=$(HTMLROOT) --podroot=.. --podpath=pod:lib:ext:vms
 POD2HTML = ../ext/Pod-Html/pod2html
 POD2MAN = ../cpan/podlators/pod2man
-POD2LATEX = ../cpan/Pod-LaTeX/pod2latex
 PODCHECKER =  ../cpan/Pod-Parser/podchecker
 
 PERL = ../miniperl
@@ -71,8 +70,6 @@ man:  $(POD2MAN) $(MAN)
 
 html:  $(POD2HTML) $(HTML)
 
-tex:   $(POD2LATEX) $(TEX)
-
 toc perltoc.pod:       buildtoc
        $(PERLILIB) buildtoc
 
@@ -94,14 +91,6 @@ toc perltoc.pod:     buildtoc
 .pod.html:    $(POD2HTML)
        $(PERL) -I../lib $(POD2HTML) $(POD2HTML_ARGS) --infile=$*.pod --outfile=$*.html
 
-.SUFFIXES: .tex
-
-.pm.tex: $(POD2LATEX)
-       $(PERL) -I../lib $(POD2LATEX) $*.pm
-
-.pod.tex: $(POD2LATEX)
-       $(PERL) -I../lib $(POD2LATEX) $*.pod
-
 clean:
        rm -f $(MAN)
        rm -f $(HTML)
index 3d2b276..55bfd5c 100644 (file)
@@ -35,11 +35,10 @@ explanation) into a manpage, and then run F<man> to display it; if
 F<man> isn't available, F<pod2text> will be used instead and the output
 piped through your favourite pager.
 
-=item L<pod2html|pod2html> and L<pod2latex|pod2latex>
+=item L<pod2html|pod2html>
 
-As well as these two, there are two other converters: F<pod2html> will
-produce HTML pages from POD, and F<pod2latex>, which produces LaTeX
-files.
+As well as these two, there is another converter: F<pod2html> will
+produce HTML pages from POD.
 
 =item L<pod2usage|pod2usage>
 
index 35d2859..83766f6 100644 (file)
@@ -116,8 +116,10 @@ pod/perlrun.pod        Verbatim line length including indents exceeds 79 by
 POD2::FR
 POD2::IT
 pod2ipf(1)
+pod2latex(1)
 pod2man(1)
 Pod::HTML2Pod
+Pod::LaTeX
 Pod::Plainer
 Pod::PXML
 poll(2)
@@ -230,7 +232,7 @@ pod/perldbmfilter.pod       Verbatim line length including indents exceeds 79 by    1
 pod/perldebguts.pod    Verbatim line length including indents exceeds 79 by    34
 pod/perldebtut.pod     Verbatim line length including indents exceeds 79 by    22
 pod/perldebug.pod      Verbatim line length including indents exceeds 79 by    3
-pod/perldelta.pod      Apparent internal link is missing its forward slash     2
+pod/perldelta.pod      Apparent internal link is missing its forward slash     3
 pod/perldiag.pod       =item type mismatch     1
 pod/perldiag.pod       Verbatim line length including indents exceeds 79 by    1
 pod/perldsc.pod        Verbatim line length including indents exceeds 79 by    4
index cb1dd47..d1e5b8f 100644 (file)
--- a/utils.lst
+++ b/utils.lst
@@ -1,4 +1,3 @@
-cpan/Pod-LaTeX/blib/script/pod2latex
 cpan/podlators/blib/script/pod2man
 cpan/podlators/blib/script/pod2text
 cpan/Pod-Usage/blib/script/pod2usage
index 4081f14..a382265 100644 (file)
@@ -3,7 +3,6 @@ POD2HTML_ARGS = --htmlroot=$(HTMLROOT) --podroot=.. --podpath=pod:lib:ext:vms
 POD2HTML = ../ext/Pod-Html/pod2html
 POD2MAN = ../cpan/podlators/pod2man
 POD2TEXT = ../cpan/podlators/pod2text
-POD2LATEX = ../cpan/Pod-LaTeX/pod2latex
 PODCHECKER = ../cpan/Pod-Parser/podchecker
 
 all: html
@@ -521,8 +520,6 @@ man:        $(POD2MAN) $(MAN)
 
 html:  $(POD2HTML) $(HTML)
 
-tex:   $(POD2LATEX) $(TEX)
-
 toc:
        $(PERL) -I../lib buildtoc >perltoc.pod
 
@@ -544,14 +541,6 @@ toc:
 .pod.html:
        $(PERL) -I../lib $(POD2HTML) $(POD2HTML_ARGS) --infile=$*.pod --outfile=$*.html
 
-.SUFFIXES: .tex
-
-.pm.tex:
-       $(PERL) -I../lib $(POD2LATEX) $*.pm
-
-.pod.tex:
-       $(PERL) -I../lib $(POD2LATEX) $*.pod
-
 clean:
        rm -f $(MAN)
        rm -f $(HTML)