diff options
| author | Tony Cook <tony@develop-help.com> | 2014-02-18 20:37:47 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-02-18 20:37:47 +1100 |
| commit | 93e3abc735a64f3c35490f1418239a2fa8e3eb2c (patch) | |
| tree | f91449a49b0f84dcf2cb9e9ea939edfccb033da5 | |
| parent | 727d17a2338d0d8213da569f60c2164a48c28049 (diff) | |
| download | perl-93e3abc735a64f3c35490f1418239a2fa8e3eb2c.tar.gz | |
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)
| -rwxr-xr-x | Porting/Maintainers.pl | 3 | ||||
| -rw-r--r-- | cpan/Parse-CPAN-Meta/lib/Parse/CPAN/Meta.pm | 16 | ||||
| -rw-r--r-- | pod/perldelta.pod | 2 |
3 files changed, 12 insertions, 9 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 36bf0c60e6..3bd270048d 100755 --- 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 1b63d89196..4d773e2f1a 100644 --- 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 ebfca995a2..a58b9953c7 100644 --- 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. |