-
Notifications
You must be signed in to change notification settings - Fork 559
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Max Maischein
committed
Dec 16, 2024
1 parent
3be0722
commit e2b6691
Showing
12 changed files
with
149 additions
and
67 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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.68-2-gcc5324e | ||
| package CPAN::Meta::YAML; # git description: v1.74-6-g56f1f15 | ||
| # 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.018'; | ||
| $CPAN::Meta::YAML::VERSION = '0.019'; | ||
| ; # original $VERSION removed by Doppelgaenger | ||
|
|
||
| ##################################################################### | ||
|
|
@@ -138,7 +138,10 @@ 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 true false | ||
| 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 | ||
| }; | ||
|
|
||
| # The commented out form is simpler, but overloaded the Perl regex | ||
|
|
@@ -373,7 +376,7 @@ sub _load_scalar { | |
| while ( @$lines ) { | ||
| $lines->[0] =~ /^(\s*)/; | ||
| last unless length($1) >= $indent->[-1]; | ||
| push @multiline, substr(shift(@$lines), length($1)); | ||
| push @multiline, substr(shift(@$lines), $indent->[-1]); | ||
| } | ||
|
|
||
| my $j = (substr($string, 0, 1) eq '>') ? ' ' : "\n"; | ||
|
|
@@ -569,10 +572,8 @@ sub _dump_file { | |
| if ( _can_flock() ) { | ||
| # Open without truncation (truncate comes after lock) | ||
| my $flags = Fcntl::O_WRONLY()|Fcntl::O_CREAT(); | ||
| sysopen( $fh, $file, $flags ); | ||
| unless ( $fh ) { | ||
| $self->_error("Failed to open file '$file' for writing: $!"); | ||
| } | ||
| sysopen( $fh, $file, $flags ) | ||
| or $self->_error("Failed to open file '$file' for writing: $!"); | ||
|
|
||
| # Use no translation and strict UTF-8 | ||
| binmode( $fh, ":raw:encoding(UTF-8)"); | ||
|
|
@@ -878,7 +879,7 @@ CPAN::Meta::YAML - Read and write a subset of YAML for CPAN Meta files | |
| =head1 VERSION | ||
| version 0.018 | ||
| version 0.019 | ||
| =head1 SYNOPSIS | ||
|
|
@@ -934,6 +935,12 @@ David Golden <[email protected]> | |
| =back | ||
| =head1 CONTRIBUTOR | ||
| =for stopwords Karen Etheridge | ||
| Karen Etheridge <[email protected]> | ||
| =head1 COPYRIGHT AND LICENSE | ||
| This software is copyright (c) 2010 by Adam Kennedy. | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -85,6 +85,8 @@ __END__ | |
| =head1 NAME | ||
| =for stopwords tml | ||
| t/tml - run .tml files matching a pattern | ||
| =head1 SYNOPSIS | ||
|
|
||
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,33 @@ | ||
| === basic multiline | ||
| # This is just a simple one key hash. | ||
| --- yaml | ||
| a: | | ||
| ciao | ||
| a tutti | ||
| --- json | ||
| {"a":"ciao\na tutti\n"} | ||
|
|
||
| === multiline with inner indentation | ||
| # This is just a simple one key hash. | ||
| --- yaml | ||
| a: | | ||
| ciao | ||
| a | ||
| tutti | ||
| --- json | ||
| {"a":"ciao\n a\ntutti\n"} | ||
|
|
||
| === two multilines with variable inner indentation | ||
| # This is just a simple one key hash. | ||
| --- yaml | ||
| - | | ||
| ciao | ||
| a | ||
| tutti | ||
| - | | ||
| quanti | ||
| voi | ||
| amici | ||
| --- json | ||
| ["ciao\n a\n tutti\n","quanti\n voi\namici\n"] | ||
|
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,26 @@ | ||
| [@CorePrep] | ||
|
|
||
| [-SingleEncoding] | ||
|
|
||
| [Name] | ||
| [Version] | ||
|
|
||
| [Region / prelude] | ||
|
|
||
| [Generic / DEPRECATED] | ||
|
|
||
| [Generic / SYNOPSIS] | ||
| [Generic / DESCRIPTION] | ||
| [Generic / USAGE] | ||
|
|
||
| [Leftovers] | ||
|
|
||
| [Region / postlude] | ||
|
|
||
| [Authors] | ||
| [Contributors] | ||
| [Legal] | ||
|
|
||
| [-Transformer / Lists] | ||
| transformer = List | ||
|
|