This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Pod-Perldoc to CPAN version 3.20
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 24 May 2013 19:45:36 +0000 (20:45 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 24 May 2013 20:37:44 +0000 (21:37 +0100)
  [DELTA]

  3.20 - Sat Apr 27 05:25:30 UTC 2013
    * Make default formatter "ToTerm" instead of "ToMan" for
      better UTF-8 support
    * When dynamically building POD from perlfunc (perlvar)
      make sure we open filehandles with utf8 and add an
      =encoding (RT #80527) (RT #80640)

17 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm
cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm
cpan/Pod-Perldoc/perldoc.pod [moved from cpan/Pod-Perldoc/lib/perldoc.pod with 100% similarity]
pod/perl.pod

index 894d3cd..ada4d8b 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1803,7 +1803,6 @@ cpan/Pod-Parser/t/pod/twice.t                     Test Pod::Parser
 cpan/Pod-Perldoc/corpus/no-head.pod            test file for Pod-Perldoc
 cpan/Pod-Perldoc/corpus/perlfunc.pod           test file for Pod-Perldoc
 cpan/Pod-Perldoc/corpus/utf8.pod               test file for Pod-Perldoc
-cpan/Pod-Perldoc/lib/perldoc.pod               Look up Perl documentation in Pod format
 cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm     utility module for perldoc
 cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm  options parsing for perldoc
 cpan/Pod-Perldoc/lib/Pod/Perldoc.pm            guts of the 'perldoc' utility
@@ -1817,6 +1816,7 @@ cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm        convert POD to terminal output
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm     convert POD to plain text
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm       convert POD via Tk::Pod
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm      convert POD to XML
+cpan/Pod-Perldoc/perldoc.pod
 cpan/Pod-Perldoc/t/load.t                      test file for Pod-Perldoc
 cpan/Pod-Perldoc/t/man/_get_columns.t          test file for Pod-Perldoc
 cpan/Pod-Perldoc/t/pod.t                       test file for Pod-Perldoc
index 53fc6d3..38d72b2 100755 (executable)
@@ -1460,7 +1460,7 @@ use File::Glob qw(:case);
 
     'Pod::Perldoc' => {
         'MAINTAINER'   => 'mallen',
-        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.19.tar.gz',
+        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.20.tar.gz',
         'FILES'        => q[cpan/Pod-Perldoc],
 
         # in blead, the perldoc executable is generated by perldoc.PL
index 8c841e8..9cdee80 100644 (file)
@@ -12,7 +12,7 @@ use File::Spec::Functions qw(catfile catdir splitdir);
 use vars qw($VERSION @Pagers $Bindir $Pod2man
   $Temp_Files_Created $Temp_File_Lifetime
 );
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 #..........................................................................
 
@@ -470,7 +470,7 @@ sub init_formatter_class_list {
 
   $self->opt_M_with('Pod::Perldoc::ToPod');   # the always-there fallthru
   $self->opt_o_with('text');
-  $self->opt_o_with('man') unless $self->is_mswin32 || $self->is_dos
+  $self->opt_o_with('term') unless $self->is_mswin32 || $self->is_dos
        || !($ENV{TERM} && (
               ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i
            ));
@@ -927,6 +927,10 @@ sub maybe_generate_dynamic_pod {
     } elsif ( @dynamic_pod ) {
         $self->aside("Hm, I found some Pod from that search!\n");
         my ($buffd, $buffer) = $self->new_tempfile('pod', 'dyn');
+        if ( $] >= 5.008 && $self->opt_L ) {
+            binmode($buffd, ":utf8");
+            print $buffd "=encoding utf8\n\n";
+        }
 
         push @{ $self->{'temp_file_list'} }, $buffer;
          # I.e., it MIGHT be deleted at the end.
@@ -1162,6 +1166,12 @@ sub search_perlfunc {
     if ( $self->opt_L && defined $self->{'translators'}->[0] ) {
         my $tr = $self->{'translators'}->[0];
         $re =  $tr->search_perlfunc_re if $tr->can('search_perlfunc_re');
+        if ( $] < 5.008 ) {
+            $self->aside("Your old perl doesn't really have proper unicode support.");
+        }
+        else {
+            binmode(PFUNC, ":utf8");
+        }
     }
 
     # Skip introduction
index 5bf8a93..80ffc80 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 use Carp                  qw(croak carp);
 use Config                qw(%Config);
index 0355f8f..5b90794 100644 (file)
@@ -2,7 +2,7 @@ package Pod::Perldoc::GetOptsOO;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 BEGIN { # Make a DEBUG constant ASAP
   *DEBUG = defined( &Pod::Perldoc::DEBUG )
index c6534bd..baaea03 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
index 6f8d12c..6bf0cf8 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use vars qw(@ISA);
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 # Pick our superclass...
 #
index 225a786..bdd0140 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 use File::Spec::Functions qw(catfile);
 use Pod::Man 2.18;
@@ -136,7 +136,7 @@ sub _get_columns {
 sub _get_podman_switches {
        my( $self ) = @_;
 
-       my @switches = grep !m/^_/s, keys %$self;
+       my @switches = map { $_, $self->{$_} } grep !m/^_/s, keys %$self;
 
     # There needs to be a cleaner way to handle setting
     # the UTF-8 flag, but for now, comment out this
@@ -242,7 +242,7 @@ sub _collect_nroff_switches {
        push @render_switches, $self->_get_device_switches;
 
        # Thanks to Brendan O'Dea for contributing the following block
-       if( $self->_is_roff and $self->is_linux and -t STDOUT and my ($cols) = $self->_get_columns ) {
+       if( $self->_is_roff and -t STDOUT and my ($cols) = $self->_get_columns ) {
                my $c = $cols * 39 / 40;
                $cols = $c > $cols - 2 ? $c : $cols -2;
                push @render_switches, '-rLL=' . (int $c) . 'n' if $cols > 80;
index 4f720e7..c9fa0fa 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 # This is unlike ToMan.pm in that it emits the raw nroff source!
 
index 7083ae6..dc5523f 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
index 6e190f7..75ea630 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw( Pod::Simple::RTF );
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
index f8d9349..bdc5625 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index 530bdee..b2861f3 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index deed6b3..8c1240a 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index f85f01e..9de73fb 100644 (file)
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 use parent qw( Pod::Simple::XMLOutStream );
 
 use vars qw($VERSION);
-$VERSION = '3.19';
+$VERSION = '3.20';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
index 40d1270..7f4245d 100644 (file)
@@ -42,7 +42,7 @@ flag =   perlvms
 path perlfaq.*               cpan/perlfaq/lib/
 path perlglossary            cpan/perlfaq/lib/
 path perlxs(?:tut|typemap)?  dist/ExtUtils-ParseXS/lib/
-path perldoc                 cpan/Pod-Perldoc/lib/
+path perldoc                 cpan/Pod-Perldoc/
 
 aux a2p c2ph h2ph h2xs perlbug pl2pm pod2html pod2man s2p splain xsubpp