From 463da0ac9e3d63ff5a2efbc705aad083d4b2b20e Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Mon, 18 Oct 2010 15:00:04 +0100 Subject: Update podlators to CPAN version 2.4.0 The new perlpodstyle.pod has been located to pod/ Changes were necessary to mkppport because of a new dependency on Encode in podlators that stopped it being built before Encode was built. [DELTA] 2010-10-10 Russ Allbery * VERSION: podlators 2.4.0 released. * scripts/pod2man: Remove the code to generate the #! line and supporting code and instead rely on ExtUtils::MakeMaker to handle that during package build. * scripts/pod2text: Likewise. * scripts/pod2man.PL: Renamed to pod2man. * scripts/pod2text.PL: Renamed to pod2text. * Makefile.PL: Remove PL_FILES section. * pod/perlpodstyle.pod: New style guide for POD documentation, split mostly from the NOTES section of the pod2man man page. * scripts/pod2man.PL: Remove NOTES section, now maintained as the separate perlpodstyle document. * Makefile.PL: Add perlpodstyle.1 to the generated man pages. * lib/Pod/Man.pm (cmd_para): Do not strip escaped trailing whitespace, such as that created by S<> at the end of a line, since the backslash is then taken by *roff as escaping the newline. Thanks, Kevin Ryde. * t/man.t: Test S<> at the end of lines. * lib/Pod/Man.pm (output): If the utf8 option is given, encode output in UTF-8 if there is no encoding layer. Now requires the Encode module. (start_document): Rather than forcibly change the PerlIO encoding layer, probe the PerlIO layers with protection for Perl versions without PerlIO and set a flag indicating whether to encode on the fly on output. * lib/Pod/Text.pm: Likewise. * Makefile.PL: Mark Encode as required. * t/man-perlio.t: Test Pod::Man output to a file handle with a PerlIO encoding layer already applied. * t/text-perlio.t: Likewise for Pod::Text. --- mkppport | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'mkppport') diff --git a/mkppport b/mkppport index 6d65992930..55a74fab9a 100644 --- a/mkppport +++ b/mkppport @@ -2,7 +2,6 @@ use strict; use warnings; use Getopt::Long; -use Pod::Usage; use File::Spec; use File::Compare qw( compare ); use File::Copy qw( copy ); @@ -22,7 +21,10 @@ my %opt = ( clean => 0, ); -GetOptions(\%opt, qw( clean list=s )) or pod2usage(2); +unless ( GetOptions(\%opt, qw( clean list=s )) ) { + require Pod::Usage; + Pod::Usage::pod2usage(2); +} my $absroot = File::Spec->rel2abs($rootdir); my @destdirs = readlist($opt{list}); -- cgit v1.2.1