Update Parse-CPAN-Meta to CPAN version 1.4413

1.4413    2014-02-17 20:04:23-05:00 America/New_York

    [FIXED]

    - UTF-8 decoding is done differently to avoid requiring
      a newer version of Encode (Graham Knop)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 36bf0c6..3bd2700 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -876,10 +876,9 @@ use File::Glob qw(:case);
     },
 
     'Parse::CPAN::Meta' => {
-        'DISTRIBUTION' => 'DAGOLDEN/Parse-CPAN-Meta-1.4412.tar.gz',
+        'DISTRIBUTION' => 'DAGOLDEN/Parse-CPAN-Meta-1.4413.tar.gz',
         'FILES'        => q[cpan/Parse-CPAN-Meta],
         'EXCLUDED'     => [
-            qw(t/00-compile.t),
             qw[t/00-report-prereqs.t],
             qr{^xt},
         ],

diff --git a/cpan/Parse-CPAN-Meta/lib/Parse/CPAN/Meta.pm b/cpan/Parse-CPAN-Meta/lib/Parse/CPAN/Meta.pm
index 1b63d89..4d773e2 100644 (file)
--- a/cpan/Parse-CPAN-Meta/lib/Parse/CPAN/Meta.pm
+++ b/cpan/Parse-CPAN-Meta/lib/Parse/CPAN/Meta.pm
@@ -2,7 +2,7 @@ use 5.008001;
 use strict;
 package Parse::CPAN::Meta;
 # ABSTRACT: Parse META.yml and META.json CPAN metadata files
-our $VERSION = '1.4412'; # VERSION
+our $VERSION = '1.4413'; # VERSION
 
 use Exporter;
 use Carp 'croak';
@@ -71,11 +71,11 @@ sub json_backend {
 
 sub _slurp {
   require Encode;
-  require PerlIO::encoding;
-  local $PerlIO::encoding::fallback = Encode::PERLQQ()|Encode::STOP_AT_PARTIAL();
-  open my $fh, "<:encoding(UTF-8)", "$_[0]" ## no critic
+  open my $fh, "<:raw", "$_[0]" ## no critic
     or die "can't open $_[0] for reading: $!";
-  return do { local $/; <$fh> };
+  my $content = do { local $/; <$fh> };
+  $content = Encode::decode('UTF-8', $content, Encode::PERLQQ());
+  return $content;
 }
   
 sub _can_load {
@@ -121,7 +121,7 @@ Parse::CPAN::Meta - Parse META.yml and META.json CPAN metadata files
 
 =head1 VERSION
 
-version 1.4412
+version 1.4413
 
 =head1 SYNOPSIS
 
@@ -293,6 +293,10 @@ David Golden <dagolden@cpan.org>
 
 =item *
 
+Graham Knop <haarg@haarg.org>
+
+=item *
+
 Joshua ben Jore <jjore@cpan.org>
 
 =item *

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index ebfca99..a58b995 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -375,7 +375,7 @@ Use HEKfARG() instead of creating and throwing away SVs.
 
 =item *
 
-L<Parse::CPAN::Meta> has been upgraded from version 1.4409 to 1.4412.
+L<Parse::CPAN::Meta> has been upgraded from version 1.4409 to 1.4413.
 
 Invalid UTF-8 encoding in YAML files are now replaced with "PERLQQ"
 quoting from the Encode module and without warnings.