From 9c88a88bf2f605e353ff3a31ee725b1f9f0db556 Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Thu, 13 Jan 2011 16:34:15 +0000 Subject: [PATCH] Update Pod-LaTeX to CPAN version 0.59 [DELTA] 2011-01-04 Tim Jenness ---- Version 0.59 CPAN ---- * t/*.t: Use Test::More for tests. * Build.PL: Use Module::Build * LaTeX.pm: Fix typo in pod (RT #46887 via Dave Mitchell) --- MANIFEST | 2 +- Porting/Maintainers.pl | 2 +- cpan/Pod-LaTeX/{ => lib/Pod}/LaTeX.pm | 15 ++++++++------- cpan/Pod-LaTeX/t/pod2latex.t | 18 ++++++++---------- cpan/Pod-LaTeX/t/user.t | 16 +++++++--------- pod/perldelta.pod | 4 ++++ 6 files changed, 29 insertions(+), 28 deletions(-) rename cpan/Pod-LaTeX/{ => lib/Pod}/LaTeX.pm (99%) diff --git a/MANIFEST b/MANIFEST index c51a4f1..9139d6b 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1669,7 +1669,7 @@ 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/LaTeX.pm Convert POD data to LaTeX +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 diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index cd268fd..170bef8 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1224,7 +1224,7 @@ use File::Glob qw(:case); 'Pod::LaTeX' => { 'MAINTAINER' => 'tjenness', - 'DISTRIBUTION' => 'TJENNESS/Pod-LaTeX-0.58.tar.gz', + 'DISTRIBUTION' => 'TJENNESS/Pod-LaTeX-0.59.tar.gz', 'FILES' => q[cpan/Pod-LaTeX], 'EXCLUDED' => [ qw( t/require.t ) ], 'UPSTREAM' => undef, diff --git a/cpan/Pod-LaTeX/LaTeX.pm b/cpan/Pod-LaTeX/lib/Pod/LaTeX.pm similarity index 99% rename from cpan/Pod-LaTeX/LaTeX.pm rename to cpan/Pod-LaTeX/lib/Pod/LaTeX.pm index 9d3a905..6404b27 100644 --- a/cpan/Pod-LaTeX/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.58'; +$VERSION = '0.59'; # Definitions of =headN -> latex mapping @LatexSections = (qw/ @@ -494,7 +494,7 @@ If used in conjunction with C a full latex document will be written that could be immediately processed by C. For some pod escapes it may be necessary to include the amsmath -package. This is not yet added to the preamble automaatically. +package. This is not yet added to the preamble automatically. =cut @@ -1839,7 +1839,7 @@ Some HTML escapes are missing and many have not been tested. =head1 SEE ALSO -L, L, L +L, L, L, L. =head1 AUTHORS @@ -1852,12 +1852,13 @@ Emarcel@codewerk.comE, Hugh S Myers Ehsmyers@sdragons.comE, Peter J Acklam Ejacklam@math.uio.noE, Sudhi Herle Esudhi@herle.netE, Ariel Scolnicov Eariels@compugen.co.ilE, -Adriano Rodrigues Ferreira Eferreira@triang.com.brE and -R. de Vries Er.de.vries@dutchspace.nlE. - +Adriano Rodrigues Ferreira Eferreira@triang.com.brE, +R. de Vries Er.de.vries@dutchspace.nlE and +Dave Mitchell Edavem@iabyn.comE. =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 @@ -1867,7 +1868,7 @@ it under the same terms as Perl itself. =head1 REVISION -$Id: LaTeX.pm,v 1.19 2004/12/30 01:40:44 timj Exp $ +$Id$ =end __PRIVATE__ diff --git a/cpan/Pod-LaTeX/t/pod2latex.t b/cpan/Pod-LaTeX/t/pod2latex.t index 965c9cc..7a003d9 100644 --- a/cpan/Pod-LaTeX/t/pod2latex.t +++ b/cpan/Pod-LaTeX/t/pod2latex.t @@ -8,24 +8,22 @@ # will probably not match what is currently there. You # will need to adjust it to match (assuming it is correct). -use Test; +use Test::More tests => 177; use strict; -BEGIN { plan tests => 177 } - -use Pod::LaTeX; - # 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"; }; -ok(1); - # 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 @@ -37,7 +35,7 @@ while (my $line = ) { # Create a new parser my $parser = Pod::LaTeX->new; -ok($parser); +isa_ok($parser, "Pod::LaTeX"); $parser->Head1Level(1); # Add the preamble but remember not to compare the timestamps $parser->AddPreamble(1); @@ -59,7 +57,7 @@ close(OUTFH) or die "Error closing OUTFH test.tex: $!\n"; open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n"; my @output = ; -ok(@output, @reference); +is(scalar @output, scalar @reference, "Count lines"); for my $i (0..$#reference) { next if $reference[$i] =~ /^%%/; # skip timestamp comments @@ -71,7 +69,7 @@ for my $i (0..$#reference) { $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/; } - ok($output[$i], $reference[$i]); + is($output[$i], $reference[$i], "Check line $i"); } close(INFH) or die "Error closing INFH test.tex: $!\n"; diff --git a/cpan/Pod-LaTeX/t/user.t b/cpan/Pod-LaTeX/t/user.t index 04776de..bd8c211 100644 --- a/cpan/Pod-LaTeX/t/user.t +++ b/cpan/Pod-LaTeX/t/user.t @@ -6,12 +6,12 @@ # Variant provided by # Adriano Rodrigues Ferreira -use Test; +use Test::More tests => 17; use strict; -BEGIN { plan tests => 17 } - -use Pod::LaTeX; +BEGIN { + use_ok( "Pod::LaTeX" ); +} # The link parsing changed between v0.22 and v0.30 of Pod::ParseUtils use Pod::ParseUtils; @@ -22,8 +22,6 @@ END { unlink "test.tex"; }; -ok(1); - # 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 @@ -52,7 +50,7 @@ my %params = ( ); my $parser = Pod::LaTeX->new(%params); -ok($parser); +isa_ok($parser, "Pod::LaTeX"); # Create an output file open(OUTFH, "> test.tex" ) or die "Unable to open test tex file: $!\n"; @@ -67,11 +65,11 @@ close(OUTFH) or die "Error closing OUTFH test.tex: $!\n"; open(INFH, "< test.tex") or die "Unable to read test tex file: $!\n"; my @output = ; -ok(@output, @reference); +is(scalar @output, scalar @reference, "Count lines"); for my $i (0..$#reference) { next if $reference[$i] =~ /^%%/; # skip timestamp comments - ok($output[$i], $reference[$i]); + is($output[$i], $reference[$i], "Compare line $i"); } close(INFH) or die "Error closing INFH test.tex: $!\n"; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 8370e04..9f1afd5 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -198,6 +198,10 @@ C has been upgraded from version 0.26 to 0.28 =item * +C has been upgraded from version 0.58 to 0.59 + +=item * + C has been upgraded from version 0.20 to 0.24 =item * -- 2.7.4