From a71d67b1d7150f1f3bd4d28cacf3c4780463bcb6 Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Wed, 23 Nov 2011 21:20:51 +0000 Subject: [PATCH] Update Pod-LaTeX to CPAN version 0.60 [DELTA] added another LaTeX escape: --- => -{}-{}- Pod::LaTeX doesn't handle -- in PODs specially, passing it directly to LaTeX, which then proceeds to replace it with a single -. This patch replaces ----- with -{}-{}-{}-{}- --- Porting/Maintainers.pl | 2 +- cpan/Pod-LaTeX/lib/Pod/LaTeX.pm | 18 +++++++++++------- cpan/Pod-LaTeX/pod2latex.PL | 2 +- pod/perldelta.pod | 10 ++++++++++ 4 files changed, 23 insertions(+), 9 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 69de12c..635ee97 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1534,7 +1534,7 @@ use File::Glob qw(:case); 'Pod::LaTeX' => { 'MAINTAINER' => 'tjenness', - 'DISTRIBUTION' => 'TJENNESS/Pod-LaTeX-0.59.tar.gz', + 'DISTRIBUTION' => 'TJENNESS/Pod-LaTeX-0.60.tar.gz', 'FILES' => q[cpan/Pod-LaTeX], 'EXCLUDED' => [ qw( t/require.t ) ], 'UPSTREAM' => undef, diff --git a/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm b/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm index 6404b27..f4b1aaf 100644 --- a/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm +++ b/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm @@ -33,7 +33,7 @@ use Carp; use vars qw/ $VERSION %HTML_Escapes @LatexSections /; -$VERSION = '0.59'; +$VERSION = '0.60'; # Definitions of =headN -> latex mapping @LatexSections = (qw/ @@ -263,7 +263,7 @@ $VERSION = '0.59'; '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 sumation + '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 @@ -414,7 +414,7 @@ sub initialize { $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 relevent if AddPreamble=1 + 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 @@ -446,7 +446,7 @@ sub initialize { $self->{Label} = undef # label to be used as prefix unless exists $self->{Label}; # to all internal section names - # These allow the caller to add arbritrary latex code to + # 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. @@ -1057,7 +1057,7 @@ sub command { } else { # Suppress all subsequent paragraphs unless - # it is explcitly intended for latex + # it is explicitly intended for latex $self->{_suppress_all_para} = 1; } @@ -1382,7 +1382,7 @@ sub end_list { # What to write depends on list type my $type = $self->lists->[-1]->type; - # Dont write anything if the list type is not set + # 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") @@ -1418,7 +1418,7 @@ sub add_item { return; } - # If paragraphs printing is turned off via =begin/=end or whatver + # If paragraphs printing is turned off via =begin/=end or whatever # simply return immediately return if $self->{_suppress_all_para}; @@ -1621,6 +1621,10 @@ sub _replace_special_chars { # Now add the dollars around each \backslash $paragraph =~ s/(\\backslash)/\$$1\$/g; + + # Convert ------ to -{}-{}-{}-{}-{}- + $paragraph =~ s/-(?=-)/-{}/g; + return $paragraph; } diff --git a/cpan/Pod-LaTeX/pod2latex.PL b/cpan/Pod-LaTeX/pod2latex.PL index 9838edc..23e6820 100644 --- a/cpan/Pod-LaTeX/pod2latex.PL +++ b/cpan/Pod-LaTeX/pod2latex.PL @@ -141,7 +141,7 @@ if (exists $options{'out'} && defined $options{'out'}) { # 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 exisiting extension +# a .tex extension rather than any existing extension if ($multi_documents) { diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 2441274..71d02be 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -115,6 +115,16 @@ L has been upgraded from version 2.042 to version 2.043. =item * +L has been upgraded from version 0.59 to version 0.60. + +Added another LaTeX escape: --- => -{}-{}- + +Pod::LaTeX doesn't handle -- in PODs specially, passing it directly to +LaTeX, which then proceeds to replace it with a single -. This patch +replaces ----- with -{}-{}-{}-{}- + +=item * + L has been upgraded from version 0.85 to version 0.86. Tailored compatibility ideographs as well as unified ideographs for -- 2.7.4