Skip to content

Commit

Permalink
Update CPAN::Meta::YAML to 0.020
Browse files Browse the repository at this point in the history
  • Loading branch information
karenetheridge committed Dec 16, 2024
1 parent e2b6691 commit 6f83688
Show file tree
Hide file tree
Showing 4 changed files with 9 additions and 14 deletions.
2 changes: 1 addition & 1 deletion META.yml
Original file line number Diff line number Diff line change
Expand Up @@ -106,4 +106,4 @@ resources:
license: https://dev.perl.org/licenses/
repository: https://github.com/Perl/perl5
version: '5.041007'
x_serialization_backend: 'CPAN::Meta::YAML version 0.019'
x_serialization_backend: 'CPAN::Meta::YAML version 0.020'
4 changes: 2 additions & 2 deletions Porting/Maintainers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -329,8 +329,8 @@ package Maintainers;
},

'CPAN::Meta::YAML' => {
'DISTRIBUTION' => 'ETHER/CPAN-Meta-YAML-0.019.tar.gz',
'SYNCINFO' => 'corion on Mon Dec 16 09:12:25 2024',
'DISTRIBUTION' => 'ETHER/CPAN-Meta-YAML-0.020.tar.gz',
'SYNCINFO' => 'ether on Mon Dec 16 12:20:28 2024',
'FILES' => q[cpan/CPAN-Meta-YAML],
'EXCLUDED' => [
't/00-report-prereqs.t',
Expand Down
11 changes: 4 additions & 7 deletions cpan/CPAN-Meta-YAML/lib/CPAN/Meta/YAML.pm
Original file line number Diff line number Diff line change
@@ -1,11 +1,11 @@
use 5.008001; # sane UTF-8 support
use strict;
use warnings;
package CPAN::Meta::YAML; # git description: v1.74-6-g56f1f15
package CPAN::Meta::YAML; # git description: v1.75-3-g85169f1
# XXX-INGY is 5.8.1 too old/broken for utf8?
# XXX-XDG Lancaster consensus was that it was sufficient until
# proven otherwise
$CPAN::Meta::YAML::VERSION = '0.019';
$CPAN::Meta::YAML::VERSION = '0.020';
; # original $VERSION removed by Doppelgaenger

#####################################################################
Expand Down Expand Up @@ -138,10 +138,7 @@ my %UNESCAPES = (
# These 3 values have special meaning when unquoted and using the
# default YAML schema. They need quotes if they are strings.
my %QUOTE = map { $_ => 1 } qw{
null Null NULL
y Y yes Yes YES n N no No NO
true True TRUE false False FALSE
on On ON off Off OFF
null true false
};

# The commented out form is simpler, but overloaded the Perl regex
Expand Down Expand Up @@ -879,7 +876,7 @@ CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta files
=head1 VERSION
version 0.019
version 0.020
=head1 SYNOPSIS
Expand Down
6 changes: 2 additions & 4 deletions cpan/CPAN-Meta-YAML/t/lib/TestBridge.pm
Original file line number Diff line number Diff line change
Expand Up @@ -347,13 +347,11 @@ sub test_code_point {
my $data = { chr($code) => chr($code) };
my $dump = CPAN::Meta::YAML::Dump($data);
$dump =~ s/^---\n//;
ok($dump eq $yaml or "'$dump'" eq $yaml,
"Dump key and value of code point char $code");
is $dump, $yaml, "Dump key and value of code point char $code";

my $yny = CPAN::Meta::YAML::Dump(CPAN::Meta::YAML::Load($yaml));
$yny =~ s/^---\n//;
ok($yny eq $yaml or "'$yny'" eq $yaml,
"YAML for code point $code YNY roundtrips");
is $yny, $yaml, "YAML for code point $code YNY roundtrips";

my $nyn = CPAN::Meta::YAML::Load(CPAN::Meta::YAML::Dump($data));
cmp_deeply( $nyn, $data, "YAML for code point $code NYN roundtrips" );
Expand Down

0 comments on commit 6f83688

Please sign in to comment.