Update Pod-Perldoc to CPAN version 3.19
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 28 Jan 2013 11:15:47 +0000 (11:15 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 28 Jan 2013 11:15:47 +0000 (11:15 +0000)
  [DELTA]

  3.19 - Mon Jan 28 04:29:40 UTC 2013
    * Really put perldoc.pod into man1

  3.18 - Mon Jan 28 04:17:26 UTC 2013
    * Document perldoc behavior in build directories (RT #80376)
    * Don't blindly force UTF8 to Pod::Man (RT #77465)
    * Fix is_dos typo (RT #76029)
    * Put perldoc.pod into man1 RT #77210 (ppisar@redhat.com)
    * Remove formatting from literal blocks RT #77209 (ppisar@redhat.com)

15 files changed:
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/lib/perldoc.pod

index 7e23f80..be36f6c 100755 (executable)
@@ -1539,7 +1539,7 @@ use File::Glob qw(:case);
 
     'Pod::Perldoc' => {
         'MAINTAINER'   => 'mallen',
-        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.17.tar.gz',
+        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.19.tar.gz',
         'FILES'        => q[cpan/Pod-Perldoc],
 
         # in blead, the perldoc executable is generated by perldoc.PL
index a0dd24a..8c841e8 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.17';
+$VERSION = '3.19';
 
 #..........................................................................
 
@@ -798,7 +798,7 @@ sub options_sanity {
     if( $self->opt_f or $self->opt_q ) {
     $self->usage("Only one of -f -or -q") if $self->opt_f and $self->opt_q;
     $self->warn(
-        "Perldoc is only really meant for reading one word at a time.\n",
+        "Perldoc is meant for reading one file at a time.\n",
         "So these parameters are being ignored: ",
         join(' ', @{$self->{'args'}}),
         "\n" )
@@ -1423,7 +1423,7 @@ sub minus_f_nocase {   # i.e., do like -f, but without regard to case
 
      if(!$self->opt_i
         or $self->is_vms or $self->is_mswin32
-        or $self->Is_dos or $self->is_os2
+        or $self->is_dos or $self->is_os2
      ) {
         # On a case-forgiving file system, or if case is important,
     #  that is it, all we can do.
@@ -1514,7 +1514,7 @@ sub pagers_guessing {
        }
     }
 
-    unshift @pagers, $ENV{PERLDOC_PAGER} if $ENV{PERLDOC_PAGER};
+    unshift @pagers, "$ENV{PERLDOC_PAGER} <" if $ENV{PERLDOC_PAGER};
 
     return;
 }
index aa8d844..5bf8a93 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 use Carp                  qw(croak carp);
 use Config                qw(%Config);
index c77d546..0355f8f 100644 (file)
@@ -2,7 +2,7 @@ package Pod::Perldoc::GetOptsOO;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 BEGIN { # Make a DEBUG constant ASAP
   *DEBUG = defined( &Pod::Perldoc::DEBUG )
index 7be62e2..c6534bd 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
index 32c309b..6f8d12c 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use vars qw(@ISA);
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 # Pick our superclass...
 #
index 55616e8..225a786 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 use File::Spec::Functions qw(catfile);
 use Pod::Man 2.18;
@@ -138,7 +138,14 @@ sub _get_podman_switches {
 
        my @switches = grep !m/^_/s, keys %$self;
 
-       push @switches, 'utf8' => 1;
+    # There needs to be a cleaner way to handle setting
+    # the UTF-8 flag, but for now, comment out this
+    # line because it often does the wrong thing.
+    #
+    # See RT #77465
+    #
+    #push @switches, 'utf8' => 1;
+
        $self->debug( "Pod::Man switches are [@switches]\n" );
 
        return @switches;
@@ -298,7 +305,7 @@ sub _filter_through_nroff {
     # Maybe someone set rendering switches as part of the opt_n value
     # Deal with that here.
 
-    my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_-]+)\b(.+)?\z/;
+    my ($render, $switches) = $self->__nroffer() =~ /\A([\/a-zA-Z0-9_\.-]+)\b(.+)?\z/;
 
     $self->die("no nroffer!?") unless $render;
     my @render_switches = $self->_collect_nroff_switches;
index 2e92f2a..4f720e7 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 # This is unlike ToMan.pm in that it emits the raw nroff source!
 
index 6c15c02..7083ae6 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
index a7d4739..6e190f7 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw( Pod::Simple::RTF );
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
index dddc4c8..f8d9349 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index 0e4e2da..530bdee 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index fb8da15..deed6b3 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index 96f35c4..f85f01e 100644 (file)
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 use parent qw( Pod::Simple::XMLOutStream );
 
 use vars qw($VERSION);
-$VERSION = '3.17';
+$VERSION = '3.19';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
index 42a9eab..55febc4 100644 (file)
@@ -5,28 +5,28 @@ perldoc - Look up Perl documentation in Pod format.
 
 =head1 SYNOPSIS
 
-    B<perldoc> [B<-h>] [B<-D>] [B<-t>] [B<-u>] [B<-m>] [B<-l>] [B<-F>]
-        [B<-i>] [B<-V>] [B<-T>] [B<-r>]
-        [B<-dI<destination_file>>]
-        [B<-oI<formatname>>]
-        [B<-MI<FormatterClassName>>]
-        [B<-wI<formatteroption:value>>]
-        [B<-n>I<nroff-replacement>]
-        [B<-X>]
-        [B<-L> I<language_code>]
+    perldoc [-h] [-D] [-t] [-u] [-m] [-l] [-F]
+        [-i] [-V] [-T] [-r]
+        [-d destination_file]
+        [-o formatname]
+        [-M FormatterClassName]
+        [-w formatteroption:value]
+        [-n nroff-replacement]
+        [-X]
+        [-L language_code]
         PageName|ModuleName|ProgramName|URL
 
 Examples:
 
-    B<perldoc> B<-f> BuiltinFunction
+    perldoc -f BuiltinFunction
 
-    B<perldoc> B<-L> it B<-f> BuiltinFunction
+    perldoc -L it -f BuiltinFunction
 
-    B<perldoc> B<-q> FAQ Keyword
+    perldoc -q FAQ Keyword
 
-    B<perldoc> B<-L> fr B<-q> FAQ Keyword
+    perldoc -L fr -q FAQ Keyword
 
-    B<perldoc> B<-v> PerlVariable
+    perldoc -v PerlVariable
 
 See below for more description of the switches.
 
@@ -116,7 +116,7 @@ Examples:
 =item B<-T>
 
 This specifies that the output is not to be sent to a pager, but is to
-be sent right to STDOUT.
+be sent directly to STDOUT.
 
 =item B<-d> I<destination-filename>
 
@@ -219,15 +219,14 @@ drop privileges by setting the effective and real IDs to nobody's
 or nouser's account, or -2 if unavailable.  If it cannot relinquish
 its privileges, it will not run.
 
-
 =head1 ENVIRONMENT
 
 Any switches in the C<PERLDOC> environment variable will be used before the
 command line arguments.
 
-Useful values for C<PERLDOC> include C<-oman>, C<-otext>, C<-otk>, C<-ortf>,
+Useful values for C<PERLDOC> include C<-oterm>, C<-otext>, C<-ortf>,
 C<-oxml>, and so on, depending on what modules you have on hand; or
-the formatter class may be specified exactly with C<-MPod::Perldoc::ToMan>
+the formatter class may be specified exactly with C<-MPod::Perldoc::ToTerm>
 or the like.
 
 C<perldoc> also searches directories
@@ -236,6 +235,12 @@ defined) and C<PATH> environment variables.
 (The latter is so that embedded pods for executables, such as
 C<perldoc> itself, are available.)
 
+In directories where either C<Makefile.PL> or C<Build.PL> exist, C<perldoc>
+will add C<.> and C<lib> first to its search path, and as long as you're not
+the superuser will add C<blib> too.  This is really helpful if you're working
+inside of a build directory and want to read through the docs even if you
+have a version of a module previously installed.
+
 C<perldoc> will use, in order of preference, the pager defined in
 C<PERLDOC_PAGER>, C<MANPAGER>, or C<PAGER> before trying to find a pager
 on its own. (C<MANPAGER> is not used if C<perldoc> was told to display
@@ -244,7 +249,7 @@ plain text or unformatted pod.)
 One useful value for C<PERLDOC_PAGER> is C<less -+C -E>.
 
 Having PERLDOCDEBUG set to a positive integer will make perldoc emit
-even more descriptive output than the C<-v> switch does; the higher the
+even more descriptive output than the C<-D> switch does; the higher the
 number, the more it emits.