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.24
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 21 Aug 2014 10:35:53 +0000 (11:35 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 21 Aug 2014 12:03:34 +0000 (13:03 +0100)
  [DELTA]

3.24 - Tue Aug 19 03:38:07 UTC 2014
    * Release 3.24

    Make sure when we open a filehandle for reading
    or writing, we set ':encoding(UTF-8)' on it
    everywhere.  Closes RT#98019.

3.23_01 - Sat Aug 16 16:47:45 UTC 2014
    * Test release to test UTF8 filehandles.
    * Happy CPAN Day!

14 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

index c9a0ab7..47f62a2 100755 (executable)
@@ -902,7 +902,7 @@ use File::Glob qw(:case);
     },
 
     'Pod::Perldoc' => {
-        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.23.tar.gz',
+        'DISTRIBUTION' => 'MALLEN/Pod-Perldoc-3.24.tar.gz',
         'FILES'        => q[cpan/Pod-Perldoc],
 
         # Note that we use the CPAN-provided Makefile.PL, since it
index 6ddd21d..d1d7cf6 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.23';
+$VERSION = '3.24';
 
 #..........................................................................
 
@@ -939,7 +939,7 @@ sub maybe_generate_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");
+            binmode($buffd, ":encoding(UTF-8)");
             print $buffd "=encoding utf8\n\n";
         }
 
@@ -1043,6 +1043,7 @@ sub search_perlvar {
     open(PVAR, "<", $perlvar)               # "Funk is its own reward"
         or $self->die("Can't open $perlvar: $!");
 
+    binmode(PVAR, ":encoding(UTF-8)");
     if ( $opt ne '$0' && $opt =~ /^\$\d+$/ ) { # handle $1, $2, ...
       $opt = '$<I<digits>>';
     }
@@ -1112,6 +1113,7 @@ sub search_perlop {
   # especially since we need to support UTF8 or other encoding when dealing
   # with perlop, perlfunc, perlapi, perlfaq[1-9]
   open( PERLOP, '<', $perlop ) or $self->die( "Can't open $perlop: $!" );
+  binmode(PERLOP, ":encoding(UTF-8)");
 
   my $thing = $self->opt_f;
 
@@ -1202,7 +1204,7 @@ sub search_perlapi {
             $self->aside("Your old perl doesn't really have proper unicode support.");
         }
         else {
-            binmode(PAPI, ":utf8");
+            binmode(PAPI, ":encoding(UTF-8)");
         }
     }
 
@@ -1284,7 +1286,7 @@ sub search_perlfunc {
             $self->aside("Your old perl doesn't really have proper unicode support.");
         }
         else {
-            binmode(PFUNC, ":utf8");
+            binmode(PFUNC, ":encoding(UTF-8)");
         }
     }
 
@@ -1379,6 +1381,7 @@ EOD
         $self->die( "invalid file spec: $!" ) if $file =~ /[<>|]/;
         open(INFAQ, "<", $file)  # XXX 5.6ism
          or $self->die( "Can't read-open $file: $!\nAborting" );
+        binmode(INFAQ, ":encoding(UTF-8)");
         while (<INFAQ>) {
             if ( m/^=head2\s+.*(?:$search_key)/i ) {
                 $found = 1;
index b216d42..29eb7fb 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 use Carp                  qw(croak carp);
 use Config                qw(%Config);
index 3f4e218..e05b953 100644 (file)
@@ -2,7 +2,7 @@ package Pod::Perldoc::GetOptsOO;
 use strict;
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 BEGIN { # Make a DEBUG constant ASAP
   *DEBUG = defined( &Pod::Perldoc::DEBUG )
index f0ecbce..19a14ba 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
index 8bff338..b153b76 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use vars qw(@ISA);
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 # Pick our superclass...
 #
index 1080dbd..7ee17b1 100644 (file)
@@ -5,7 +5,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 use File::Spec::Functions qw(catfile);
 use Pod::Man 2.18;
index 9777581..9b7f210 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 # This is unlike ToMan.pm in that it emits the raw nroff source!
 
index 97185bb..777bae1 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw(Pod::Perldoc::BaseTo);
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 sub is_pageable        { 1 }
 sub write_with_binmode { 0 }
index 5884057..392ea1e 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 use parent qw( Pod::Simple::RTF );
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }
index 693b52a..bbc0755 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index 07f44cd..69a2f29 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index 627289e..5b87153 100644 (file)
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 use parent qw(Pod::Perldoc::BaseTo);
 
index 5c86b3e..f1670e3 100644 (file)
@@ -6,7 +6,7 @@ use vars qw($VERSION);
 use parent qw( Pod::Simple::XMLOutStream );
 
 use vars qw($VERSION);
-$VERSION = '3.23';
+$VERSION = '3.24';
 
 sub is_pageable        { 0 }
 sub write_with_binmode { 0 }