In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/5fddd31d7b2dc088b4b71080d71434186b7722e0?hp=476fafdab0f423a4d1cc03f8d41ba35a50245764>

- Log -----------------------------------------------------------------
commit 5fddd31d7b2dc088b4b71080d71434186b7722e0
Author: Steve Hay <[email protected]>
Date:   Wed Aug 10 13:54:26 2016 +0100

    Exclude a new Pod-Perldoc test script for now, since it's failing in core
    
    Failures on Win32/MSVC++ when dropped into core are:
    
    not ok 3 - got expected output in STDOUT
    #   Failed test 'got expected output in STDOUT'
    #   at t/02_module_pod_output.t line 40.
    #                   undef
    #     doesn't match '(?^:Look up Perl documentation)'
    
    not ok 7 - got expected output in STDERR
    #   Failed test 'got expected output in STDERR'
    #   at t/02_module_pod_output.t line 73.
    #                   ''perl' is not recognized as an internal or external 
command
    ,
    # operable program or batch file.
    # '
    #     doesn't match '(?^:No documentation)'

M       MANIFEST
M       Porting/Maintainers.pl
D       cpan/Pod-Perldoc/t/02_module_pod_output.t

commit 42b862f5972b81b4b0394d82463f735d2e1759f2
Author: Steve Hay <[email protected]>
Date:   Wed Aug 10 13:24:22 2016 +0100

    Upgrade Pod-Perldoc from vesion 3.25_03 to 3.27

M       MANIFEST
M       Porting/Maintainers.pl
M       cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm
M       cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm
M       cpan/Pod-Perldoc/perldoc.pod
R100    cpan/Pod-Perldoc/t/load.t       cpan/Pod-Perldoc/t/00_load.t
A       cpan/Pod-Perldoc/t/01_about_verbose.t
A       cpan/Pod-Perldoc/t/02_module_pod_output.t
M       t/porting/customized.dat

commit 822f029b377697684cf0f557225e8e6e077172a5
Author: Steve Hay <[email protected]>
Date:   Wed Aug 10 13:10:26 2016 +0100

    Sync CPAN Locale::Maketext 1.28 with blead

M       Porting/Maintainers.pl
M       dist/Locale-Maketext/ChangeLog
-----------------------------------------------------------------------

Summary of changes:
 MANIFEST                                           |  3 ++-
 Porting/Maintainers.pl                             | 21 ++++++++-------
 cpan/Pod-Perldoc/lib/Pod/Perldoc.pm                | 31 ++++++++++++----------
 cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm         |  3 ++-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm      |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm         |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm      |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm          |  4 +--
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm        |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm          |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm          |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm         |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm         |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm           |  2 +-
 cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm          |  2 +-
 cpan/Pod-Perldoc/perldoc.pod                       | 26 +++++++++++++-----
 cpan/Pod-Perldoc/t/{load.t => 00_load.t}           |  0
 .../Pod-Perldoc/t/01_about_verbose.t               | 15 +++++------
 dist/Locale-Maketext/ChangeLog                     |  4 +++
 t/porting/customized.dat                           |  1 -
 20 files changed, 74 insertions(+), 54 deletions(-)
 rename cpan/Pod-Perldoc/t/{load.t => 00_load.t} (100%)
 copy dist/Test/t/05_about_verbose.t => cpan/Pod-Perldoc/t/01_about_verbose.t 
(94%)

diff --git a/MANIFEST b/MANIFEST
index 537796d..f170c93 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1976,7 +1976,8 @@ 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/Makefile.PL
 cpan/Pod-Perldoc/perldoc.pod
-cpan/Pod-Perldoc/t/load.t                      test file for Pod-Perldoc
+cpan/Pod-Perldoc/t/00_load.t                   test file for Pod-Perldoc
+cpan/Pod-Perldoc/t/01_about_verbose.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
 cpan/Pod-Simple/lib/Pod/Simple.pm                      Pod made simple
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 38c3c3e..d9f931f 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -762,7 +762,7 @@ use File::Glob qw(:case);
     },
 
     'Locale::Maketext' => {
-        'DISTRIBUTION' => 'TODDR/Locale-Maketext-1.27.tar.gz',
+        'DISTRIBUTION' => 'TODDR/Locale-Maketext-1.28.tar.gz',
         'FILES'        => q[dist/Locale-Maketext],
         'EXCLUDED'     => [
             qw(
@@ -975,21 +975,22 @@ use File::Glob qw(:case);
     },
 
     'Pod::Perldoc' => {
-        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.25.tar.gz',
+        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.27.tar.gz',
         'FILES'        => q[cpan/Pod-Perldoc],
 
         # Note that we use the CPAN-provided Makefile.PL, since it
         # contains special handling of the installation of perldoc.pod
 
-        # In blead, the perldoc executable is generated by perldoc.PL
-        # instead
-        # XXX We can and should fix this, but clean up the DRY-failure in utils
-        # first
-        'EXCLUDED' => ['perldoc'],
+        'EXCLUDED' => [
+            # In blead, the perldoc executable is generated by perldoc.PL
+            # instead
+            # XXX We can and should fix this, but clean up the DRY-failure in
+            # utils first
+            'perldoc',
 
-        # https://rt.cpan.org/Ticket/Display.html?id=106798
-        # https://rt.cpan.org/Ticket/Display.html?id=110368
-        'CUSTOMIZED'   => [ qw[ lib/Pod/Perldoc.pm ] ],
+            # https://rt.cpan.org/Ticket/Display.html?id=116827
+            't/02_module_pod_output.t'
+        ],
     },
 
     'Pod::Simple' => {
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
index 787353b..1999f01 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc.pm
@@ -12,8 +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.25_03'; # patched in perl5.git
-$VERSION =~ s/_//;
+$VERSION = '3.27';
 
 #..........................................................................
 
@@ -285,7 +284,8 @@ Options:
     -m   Display module's file in its entirety
     -n   Specify replacement for groff
     -l   Display the module's file name
-    -F   Arguments are file names, not modules
+    -U   Don't attempt to drop privs for security
+    -F   Arguments are file names, not modules (implies -U)
     -D   Verbosely describe what's going on
     -T   Send output to STDOUT without any pager
     -d output_filename_to_send_to
@@ -393,7 +393,7 @@ sub usage_brief {
   my $program_name = $self->program_name;
 
   CORE::die( <<"EOUSAGE" );
-Usage: $program_name [-hVriDtumFXlT] [-n nroffer_program]
+Usage: $program_name [-hVriDtumUFXlT] [-n nroffer_program]
     [-d output_filename] [-o output_format] [-M FormatterModule]
     [-w formatter_option:option_value] [-L translation_code]
     PageName|ModuleName|ProgramName
@@ -486,7 +486,8 @@ 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('term') unless $self->is_mswin32 || $self->is_dos || 
$self->is_amigaos
+  $self->opt_o_with('term') 
+    unless $self->is_mswin32 || $self->is_dos || $self->is_amigaos
        || !($ENV{TERM} && (
               ($ENV{TERM} || '') !~ /dumb|emacs|none|unknown/i
            ));
@@ -521,7 +522,7 @@ sub process {
     $self->options_reading;
     $self->pagers_guessing;
     $self->aside(sprintf "$0 => %s v%s\n", ref($self), $self->VERSION);
-    $self->drop_privs_maybe unless $self->opt_U;
+    $self->drop_privs_maybe unless ($self->opt_U || $self->opt_F);
     $self->options_processing;
 
     # Hm, we have @pages and @found, but we only really act on one
@@ -1326,7 +1327,7 @@ sub search_perlfunc {
     local $_;
     while (<$fh>) {
         /^=encoding\s+(\S+)/ && $self->set_encoding($fh, $1);
-        last if /^=head2 $re/;
+        last if /^=head2 (?:$re|Alphabetical Listing of Perl Functions)/;
     }
 
     # Look for our function
@@ -1360,7 +1361,7 @@ sub search_perlfunc {
                 last if $found > 1 and $inlist < 2;
             }
         }
-        elsif (/^=item/) {
+        elsif (/^=item|^=back/) {
             last if $found > 1 and $inlist < 2;
         }
         elsif ($found and /^X<[^>]+>/) {
@@ -1669,9 +1670,9 @@ sub pagers_guessing {
         push @pagers, qw( less.exe more.com< );
         unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
     }
-    elsif ( $self->is_amigaos) {
-        push @pagers, qw( /SYS/Utilities/MultiView /SYS/Utilities/More /C/TYPE 
);
-        unshift @pagers, "$ENV{PAGER}"  if $ENV{PAGER};
+    elsif ( $self->is_amigaos) { 
+      push @pagers, qw( /SYS/Utilities/MultiView /SYS/Utilities/More /C/TYPE );
+      unshift @pagers, "$ENV{PAGER}" if $ENV{PAGER}; 
     }
     else {
         if ($self->is_os2) {
@@ -1923,19 +1924,21 @@ sub page {  # apply a pager to the output file
         #  many many corners of the OS don't like it.  So we
         #  have to force it to be "\" to make everyone happy.
 
-        # if we are on an amiga convert unix path to an amiga one
-        $output =~ s/^\/(.*)\/(.*)/$1:$2/ if $self->is_amigaos;
+       # if we are on an amiga convert unix path to an amiga one 
+       $output =~ s/^\/(.*)\/(.*)/$1:$2/ if $self->is_amigaos;
 
         foreach my $pager (@pagers) {
             $self->aside("About to try calling $pager $output\n");
             if ($self->is_vms) {
                 last if system("$pager $output") == 0;
-              } elsif($self->is_amigaos) {
+           } elsif($self->is_amigaos) { 
                 last if system($pager, $output) == 0;
             } else {
                 # fix visible escape codes in ToTerm output
                 # https://bugs.debian.org/758689
                 local $ENV{LESS} = defined $ENV{LESS} ? "$ENV{LESS} -R" : "-R";
+               # On FreeBSD, the default pager is more.
+                local $ENV{MORE} = defined $ENV{MORE} ? "$ENV{MORE} -R" : "-R";
                 last if system("$pager \"$output\"") == 0;
             }
         }
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
index 304da44..5bab1e3 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 use Carp                  qw(croak carp);
 use Config                qw(%Config);
@@ -33,6 +33,7 @@ BEGIN {
  *is_linux   = $^O eq 'linux'    ? \&TRUE : \&FALSE unless defined &is_linux;
  *is_hpux    = $^O =~ m/hpux/    ? \&TRUE : \&FALSE unless defined &is_hpux;
  *is_openbsd = $^O =~ m/openbsd/ ? \&TRUE : \&FALSE unless defined &is_openbsd;
+ *is_freebsd = $^O =~ m/freebsd/ ? \&TRUE : \&FALSE unless defined &is_freebsd;
  *is_bitrig = $^O =~ m/bitrig/ ? \&TRUE : \&FALSE unless defined &is_bitrig;
 }
 
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm
index 71fcc7b..e88f0d3 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm
@@ -2,7 +2,7 @@ package Pod::Perldoc::GetOptsOO;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 BEGIN { # Make a DEBUG constant ASAP
   *DEBUG = defined( &Pod::Perldoc::DEBUG )
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm
index 26a11d3..aa41423 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToANSI.pm
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm
index 3d161ac..7420c45 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToChecker.pm
@@ -4,7 +4,7 @@ use warnings;
 use vars qw(@ISA);
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 # Pick our superclass...
 #
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
index e22e050..6e18b37 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToMan.pm
@@ -5,7 +5,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 use File::Spec::Functions qw(catfile);
 use Pod::Man 2.18;
@@ -63,7 +63,7 @@ sub init {
 sub _roffer_candidates {
        my( $self ) = @_;
 
-       if( $self->is_openbsd || $self->is_bitrig ) { qw( mandoc groff nroff ) }
+       if( $self->is_openbsd || $self->is_freebsd || $self->is_bitrig ) { qw( 
mandoc groff nroff ) }
        else                    { qw( groff nroff mandoc ) }
        }
 
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm
index ac4a8aa..ec9dc22 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToNroff.pm
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 # This is unlike ToMan.pm in that it emits the raw nroff source!
 
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm
index 8433e8c..0eda0af 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToPod.pm
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm
index 81f019f..69bc254 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToRtf.pm
@@ -4,7 +4,7 @@ use warnings;
 use parent qw( Pod::Simple::RTF );
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
index e97a775..64cfb01 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTerm.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm
index dbd4743..cdaaa49 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToText.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm
index 40b51c5..727b312 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToTk.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
diff --git a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm 
b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm
index 9da514f..ca1ab3c 100644
--- a/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm
+++ b/cpan/Pod-Perldoc/lib/Pod/Perldoc/ToXml.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 use parent qw( Pod::Simple::XMLOutStream );
 
 use vars qw($VERSION);
-$VERSION = '3.25';
+$VERSION = '3.27';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
diff --git a/cpan/Pod-Perldoc/perldoc.pod b/cpan/Pod-Perldoc/perldoc.pod
index 79d79cd..4cef8f5 100644
--- a/cpan/Pod-Perldoc/perldoc.pod
+++ b/cpan/Pod-Perldoc/perldoc.pod
@@ -5,7 +5,7 @@ perldoc - Look up Perl documentation in Pod format.
 
 =head1 SYNOPSIS
 
-    perldoc [-h] [-D] [-t] [-u] [-m] [-l] [-F]
+    perldoc [-h] [-D] [-t] [-u] [-m] [-l] [-U] [-F]
         [-i] [-V] [-T] [-r]
         [-d destination_file]
         [-o formatname]
@@ -34,11 +34,10 @@ See below for more description of the switches.
 
 =head1 DESCRIPTION
 
-B<perldoc> looks up a piece of documentation in .pod format that is
-embedded in the perl installation tree or in a perl script, and displays
-it via C<groff -man | $PAGER>. (In addition, if running under HP-UX,
-C<col -x> will be used.) This is primarily used for the documentation for
-the perl library modules.
+B<perldoc> looks up documentation in .pod format that is embedded in the perl
+installation tree or in a perl script, and displays it using a variety of
+formatters.  This is primarily used for the documentation for the perl library
+modules.
 
 Your system may also have man pages installed for those modules, in
 which case you can probably just use the man(1) command.
@@ -78,9 +77,17 @@ the file for you and simply hand it off for display.
 
 Display onB<l>y the file name of the module found.
 
+=item B<-U>
+
+When running as the superuser, don't attempt drop privileges for security.
+This option is implied with B<-F>.
+
+B<NOTE>: Please see the heading SECURITY below for more information.
+
 =item B<-F>
 
 Consider arguments as file names; no search in directories will be performed.
+Implies B<-U> if run as the superuser.
 
 =item B<-f> I<perlfunc>
 
@@ -229,6 +236,13 @@ 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.
 
+See the C<-U> option if you do not want this behavior but B<beware>
+that there are significant security risks if you choose to use C<-U>.
+
+Since 3.26, using C<-F> as the superuser also implies C<-U> as opening
+most files and traversing directories requires privileges that are
+above the nobody/nogroup level.
+
 =head1 ENVIRONMENT
 
 Any switches in the C<PERLDOC> environment variable will be used before the
diff --git a/cpan/Pod-Perldoc/t/load.t b/cpan/Pod-Perldoc/t/00_load.t
similarity index 100%
rename from cpan/Pod-Perldoc/t/load.t
rename to cpan/Pod-Perldoc/t/00_load.t
diff --git a/dist/Test/t/05_about_verbose.t 
b/cpan/Pod-Perldoc/t/01_about_verbose.t
similarity index 94%
copy from dist/Test/t/05_about_verbose.t
copy to cpan/Pod-Perldoc/t/01_about_verbose.t
index 70152e4..de0fcad 100644
--- a/dist/Test/t/05_about_verbose.t
+++ b/cpan/Pod-Perldoc/t/01_about_verbose.t
@@ -1,12 +1,12 @@
-require 5;
-# Time-stamp: "2004-04-24 16:53:03 ADT"
+use Test::More tests => 1;
 
-# Summary of, well, things.
+pass();
 
-use Test;
-BEGIN {plan tests => 2};
+__END__
 
-ok 1;
+BEGIN {
+    use_ok 'Pod::Perldoc';
+}
 
 {
   my @out;
@@ -77,6 +77,3 @@ print "# \%INC:\n";
 foreach my $x (sort {lc($a) cmp lc($b)} keys %INC) {
   print "#   [$x] = [", $INC{$x} || '', "]\n";
 }
-
-ok 1;
-
diff --git a/dist/Locale-Maketext/ChangeLog b/dist/Locale-Maketext/ChangeLog
index 62f6b87..ac25aa6 100644
--- a/dist/Locale-Maketext/ChangeLog
+++ b/dist/Locale-Maketext/ChangeLog
@@ -1,5 +1,9 @@
 Revision history for Perl suite Locale::Maketext
 
+2016-07-25
+    * Release of 1.28 to CPAN
+    * Fix optional runtime load for CVE-2016-1238
+
 2016-06-22
     * Release of 1.27 to CPAN
 
diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index c13e935..e96dc36 100644
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -52,7 +52,6 @@ Pod::Checker cpan/Pod-Checker/t/pod/contains_bad_pod.xr 
73538fd80dfe6e19ad561fe0
 Pod::Checker cpan/Pod-Checker/t/pod/selfcheck.t 
8ce3cfd38e4b9bcf5bc7fe7f2a14195e49aed7d8
 Pod::Checker cpan/Pod-Checker/t/pod/testcmp.pl 
a0cd5c8eca775c7753f4464eee96fa916e3d8a16
 Pod::Checker cpan/Pod-Checker/t/pod/testpchk.pl 
b2072c7f4379fd050e15424175d7cac5facf5b3b
-Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 
ba3072a6af793b410b02594ed8fe109ac16a1d43
 Scalar-List-Utils cpan/Scalar-List-Utils/lib/List/Util.pm 
e479a29c6b66ac5cbbde4ef2296afaab6c4635a6
 Scalar-List-Utils cpan/Scalar-List-Utils/lib/List/Util/XS.pm 
cbc38838d32fd213ae7b37ac38e30195355be3b9
 Scalar-List-Utils cpan/Scalar-List-Utils/lib/Scalar/Util.pm 
14a20075dfb9a4ef33b99115ed6f43e6d1a15f9b

--
Perl5 Master Repository

Reply via email to