This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Updated CPAN-Meta-YAML to CPAN version 0.008
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 31 May 2012 10:58:16 +0000 (11:58 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 15 Jun 2012 13:33:49 +0000 (14:33 +0100)
  [DELTA]

  0.008     2012-03-14 17:13:24 EST5EDT

    - Generated from ADAMK/YAML-Tiny-1.51.tar.gz

    - Updated from YAML-Tiny to fix compatibility with older Scalar::Utils

Porting/Maintainers.pl
cpan/CPAN-Meta-YAML/lib/CPAN/Meta/YAML.pm
cpan/CPAN-Meta-YAML/t/15_multibyte.t

index 9a4995c..aaa39cb 100755 (executable)
@@ -494,7 +494,7 @@ use File::Glob qw(:case);
 
     'CPAN::Meta::YAML' => {
         'MAINTAINER'   => 'dagolden',
-        'DISTRIBUTION' => 'DAGOLDEN/CPAN-Meta-YAML-0.007.tar.gz',
+        'DISTRIBUTION' => 'DAGOLDEN/CPAN-Meta-YAML-0.008.tar.gz',
         'FILES'        => q[cpan/CPAN-Meta-YAML],
         'EXCLUDED'     => [
             't/00-compile.t',
index ba8a702..a9f4d6d 100644 (file)
@@ -1,6 +1,6 @@
 package CPAN::Meta::YAML;
 {
-  $CPAN::Meta::YAML::VERSION = '0.007';
+  $CPAN::Meta::YAML::VERSION = '0.008';
 }
 
 use strict;
@@ -614,8 +614,9 @@ BEGIN {
        eval {
                require Scalar::Util;
        };
-       if ( $@ or $Scalar::Util::VERSION < 1.18 ) {
-               eval <<'END_PERL' if $@;
+       my $v = eval("$Scalar::Util::VERSION") || 0;
+       if ( $@ or $v < 1.18 ) {
+               eval <<'END_PERL';
 # Scalar::Util failed to load or too old
 sub refaddr {
        my $pkg = ref($_[0]) or return undef;
@@ -647,7 +648,7 @@ CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta files
 
 =head1 VERSION
 
-version 0.007
+version 0.008
 
 =head1 SYNOPSIS
 
@@ -689,7 +690,7 @@ L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=YAML-Tiny>
 
 L<YAML::Tiny>, L<YAML>, L<YAML::XS>
 
-=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders
+=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan
 
 =head1 SUPPORT
 
index 8e679f5..5adbc1e 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
 
 use File::Spec::Functions ':ALL';
 use t::lib::Test;
-use Test::More tests(0, 1, 5);
+use Test::More tests(0, 1, 6);
 use CPAN::Meta::YAML;
 
 
@@ -41,11 +41,12 @@ SKIP: {
 
 SKIP: {
        unless ( CPAN::Meta::YAML::HAVE_UTF8() ) {
-               skip("no utf8 support", 1 );
+               skip("no utf8 support", 2 );
        }
        eval { utf8::is_utf8('') };
        if ( $@ ) {
-               skip("no is_utf8 to test with until 5.8.1", 1);
+               skip("no is_utf8 to test with until 5.8.1", 2);
        }
        ok( utf8::is_utf8($yaml->[0]->{author}), "utf8 decoded" );
+       is( length($yaml->[0]->{author}), 39, "utf8 decoded as characters" );
 }