Update CPAN-Meta-YAML to CPAN version 0.004

  [DELTA]

  0.004     2011-09-06 09:42:52 America/New_York

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

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 9322c81..8e06b40 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -508,7 +508,7 @@ use File::Glob qw(:case);
     'CPAN::Meta::YAML' =>
        {
        'MAINTAINER'    => 'dagolden',
-       'DISTRIBUTION'  => 'DAGOLDEN/CPAN-Meta-YAML-0.003.tar.gz',
+       'DISTRIBUTION'  => 'DAGOLDEN/CPAN-Meta-YAML-0.004.tar.gz',
        'FILES'         => q[cpan/CPAN-Meta-YAML],
        'EXCLUDED'      => [
                't/04_scalar.t',    # requires YAML.pm

diff --git a/cpan/CPAN-Meta-YAML/lib/CPAN/Meta/YAML.pm b/cpan/CPAN-Meta-YAML/lib/CPAN/Meta/YAML.pm
index 2e94a18..1b1ae99 100644 (file)
--- a/cpan/CPAN-Meta-YAML/lib/CPAN/Meta/YAML.pm
+++ b/cpan/CPAN-Meta-YAML/lib/CPAN/Meta/YAML.pm
@@ -1,6 +1,6 @@
 package CPAN::Meta::YAML;
-BEGIN {
-  $CPAN::Meta::YAML::VERSION = '0.003';
+{
+  $CPAN::Meta::YAML::VERSION = '0.004';
 }
 
 use strict;
@@ -459,7 +459,7 @@ sub _write_scalar {
                $string =~ s/([\x00-\x1f])/\\$UNPRINTABLE[ord($1)]/g;
                return qq|"$string"|;
        }
-       if ( $string =~ /(?:^\W|\s)/ or $QUOTE{$string} ) {
+       if ( $string =~ /(?:^\W|\s|:\z)/ or $QUOTE{$string} ) {
                return "'$string'";
        }
        return $string;
@@ -610,12 +610,13 @@ sub LoadFile {
 # Use Scalar::Util if possible, otherwise emulate it
 
 BEGIN {
+       local $@;
        eval {
                require Scalar::Util;
-               *refaddr = *Scalar::Util::refaddr;
        };
-       eval <<'END_PERL' if $@;
-# Failed to load Scalar::Util  
+       if ( $@ or $Scalar::Util::VERSION < 1.18 ) {
+               eval <<'END_PERL' if $@;
+# Scalar::Util failed to load or too old
 sub refaddr {
        my $pkg = ref($_[0]) or return undef;
        if ( !! UNIVERSAL::can($_[0], 'can') ) {
@@ -629,7 +630,9 @@ sub refaddr {
        $i;
 }
 END_PERL
-
+       } else {
+               *refaddr = *Scalar::Util::refaddr;
+       }
 }
 
 1;
@@ -644,7 +647,7 @@ CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta files
 
 =head1 VERSION
 
-version 0.003
+version 0.004
 
 =head1 SYNOPSIS
 
@@ -682,6 +685,25 @@ 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
+
+=head1 SUPPORT
+
+=head2 Bugs / Feature Requests
+
+Please report any bugs or feature requests by email to C<bug-cpan-meta-yaml at rt.cpan.org>, or through
+the web interface at L<http://rt.cpan.org/Public/Dist/Display.html?Name=CPAN-Meta-YAML>. You will be automatically notified of any
+progress on the request by the system.
+
+=head2 Source Code
+
+This is open source software.  The code repository is available for
+public review and contribution under the terms of the license.
+
+L<http://github.com/dagolden/cpan-meta-yaml>
+
+  git clone http://github.com/dagolden/cpan-meta-yaml
+
 =head1 AUTHORS
 
 =over 4

diff --git a/cpan/CPAN-Meta-YAML/t/03_regression.t b/cpan/CPAN-Meta-YAML/t/03_regression.t
index 27a7519..8fae7e4 100644 (file)
--- a/cpan/CPAN-Meta-YAML/t/03_regression.t
+++ b/cpan/CPAN-Meta-YAML/t/03_regression.t
@@ -10,7 +10,7 @@ BEGIN {
 
 use File::Spec::Functions ':ALL';
 use t::lib::Test;
-use Test::More tests(37, 0, 12);
+use Test::More tests(37, 0, 13);
 use CPAN::Meta::YAML qw{
        Load     Dump
        LoadFile DumpFile
@@ -701,3 +701,16 @@ is_deeply( CPAN::Meta::YAML->new( [ qw{
 - 'Off'
 - 'OFF'
 END_YAML
+
+
+
+
+
+######################################################################
+# Always quote for scalars ending with :
+
+is_deeply(
+       CPAN::Meta::YAML->new( [ 'A:' ] )->write_string,
+       "---\n- 'A:'\n",
+       'Simple scalar ending in a colon is correctly quoted',
+);

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 51feba0..a8fada1 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -156,6 +156,10 @@ L<Archive::Tar> has been upgraded from version 1.76 to version 1.78.
 
 =item *
 
+L<CPAN::Meta::YAML> has been upgraded from version 0.003 to version 0.004.
+
+=item *
+
 L<CPANPLUS> has been upgraded from version 0.9109 to version 0.9110.
 
 =item *