Hello community, here is the log from the commit of package perl-YAML-Syck for openSUSE:Factory checked in at 2020-01-29 13:20:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-YAML-Syck (Old) and /work/SRC/openSUSE:Factory/.perl-YAML-Syck.new.26092 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-YAML-Syck" Wed Jan 29 13:20:30 2020 rev:34 rq:768196 version:1.32 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-YAML-Syck/perl-YAML-Syck.changes 2018-11-15 12:40:48.994224990 +0100 +++ /work/SRC/openSUSE:Factory/.perl-YAML-Syck.new.26092/perl-YAML-Syck.changes 2020-01-29 13:21:31.042266058 +0100 @@ -1,0 +2,15 @@ +Tue Jan 28 03:16:46 UTC 2020 - <[email protected]> + +- updated to 1.32 + see /usr/share/doc/packages/perl-YAML-Syck/Changes + + [Changes for 1.32 - 2020-01-27] + + **** INTERFACE CHANGE **** + * Change default for LoadBlessed to false + + * Remove YAML::Syck tests which parse META.yml + * Switch to github actions for testing + * Remove 'use vars' from code in favor of our + +------------------------------------------------------------------- Old: ---- YAML-Syck-1.31.tar.gz New: ---- YAML-Syck-1.32.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-YAML-Syck.spec ++++++ --- /var/tmp/diff_new_pack.jTWlJm/_old 2020-01-29 13:21:33.282267203 +0100 +++ /var/tmp/diff_new_pack.jTWlJm/_new 2020-01-29 13:21:33.282267203 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-YAML-Syck # -# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-YAML-Syck -Version: 1.31 +Version: 1.32 Release: 0 %define cpan_name YAML-Syck Summary: Perl YAML loader and dumper @@ -43,7 +43,7 @@ %prep %setup -q -n %{cpan_name}-%{version} -find . -type f ! -name \*.pl -print0 | xargs -0 chmod 644 +find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path "*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644 %build perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags} -DI_STDLIB -DI_STRING" @@ -59,7 +59,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes COMPATIBILITY +%doc Changes COMPATIBILITY README.md %license COPYING %changelog ++++++ YAML-Syck-1.31.tar.gz -> YAML-Syck-1.32.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/Changes new/YAML-Syck-1.32/Changes --- old/YAML-Syck-1.31/Changes 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/Changes 2020-01-27 23:17:38.000000000 +0100 @@ -1,4 +1,13 @@ +[Changes for 1.32 - 2020-01-27] + +**** INTERFACE CHANGE **** +* Change default for LoadBlessed to false + +* Remove YAML::Syck tests which parse META.yml +* Switch to github actions for testing +* Remove 'use vars' from code in favor of our + [Changes for 1.31 - 2018-10-25] * Switch to ExtUtils::MakeMaker for builder diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/MANIFEST new/YAML-Syck-1.32/MANIFEST --- old/YAML-Syck-1.31/MANIFEST 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/MANIFEST 2020-01-27 23:18:20.000000000 +0100 @@ -8,37 +8,19 @@ handler.c implicit.c inc/ExtUtils/HasCompiler.pm -inc/Module/Install.pm -inc/Module/Install/Base.pm -inc/Module/Install/Can.pm -inc/Module/Install/Compiler.pm -inc/Module/Install/Fetch.pm -inc/Module/Install/Include.pm -inc/Module/Install/Makefile.pm -inc/Module/Install/Metadata.pm -inc/Module/Install/Win32.pm -inc/Module/Install/WriteAll.pm -inc/parent.pm -inc/PerlIO.pm -inc/Scalar/Util.pm -inc/Test/Builder.pm -inc/Test/Builder/IO/Scalar.pm -inc/Test/Builder/Module.pm -inc/Test/More.pm lib/JSON/Syck.pm lib/YAML/Dumper/Syck.pm lib/YAML/Loader/Syck.pm lib/YAML/Syck.pm Makefile.PL -MANIFEST This list of files -META.yml +MANIFEST node.c perl_common.h perl_syck.h ppport.h ppport_math.h ppport_sort.h -README +README.md syck.h Syck.xs syck_.c @@ -69,8 +51,6 @@ t/json-singlequote.t t/leak.t t/load-blessed.t -t/manifest.t -t/meta.t t/TestYAML.pm t/yaml-alias.t t/yaml-blessed-ref.t @@ -80,4 +60,5 @@ t/yaml-tie.t t/yaml-utf.t token.c +META.yml Module YAML meta-data (added by MakeMaker) META.json Module JSON meta-data (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/META.json new/YAML-Syck-1.32/META.json --- old/YAML-Syck-1.31/META.json 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/META.json 2020-01-27 23:18:20.000000000 +0100 @@ -49,6 +49,6 @@ "url" : "http://github.com/toddr/YAML-Syck"; } }, - "version" : "1.31", - "x_serialization_backend" : "JSON::PP version 2.97001" + "version" : "1.32", + "x_serialization_backend" : "JSON::PP version 4.02" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/META.yml new/YAML-Syck-1.32/META.yml --- old/YAML-Syck-1.31/META.yml 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/META.yml 2020-01-27 23:18:19.000000000 +0100 @@ -24,5 +24,5 @@ homepage: http://github.com/toddr/YAML-Syck license: http://dev.perl.org/licenses/ repository: http://github.com/toddr/YAML-Syck -version: '1.31' +version: '1.32' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/README.md new/YAML-Syck-1.32/README.md --- old/YAML-Syck-1.31/README.md 1970-01-01 01:00:00.000000000 +0100 +++ new/YAML-Syck-1.32/README.md 2020-01-27 21:18:35.000000000 +0100 @@ -0,0 +1,190 @@ +[](https://github.com/toddr/YAML-Syck/actions) [](https://github.com/toddr/YAML-Syck/actions) [](https://github.com/toddr/YAML-Syck/actions) + +# NAME + +YAML::Syck - Fast, lightweight YAML loader and dumper + +# SYNOPSIS + + use YAML::Syck; + + # Set this for interoperability with other YAML/Syck bindings: + # e.g. Load('Yes') becomes 1 and Load('No') becomes ''. + $YAML::Syck::ImplicitTyping = 1; + + $data = Load($yaml); + $yaml = Dump($data); + + # $file can be an IO object, or a filename + $data = LoadFile($file); + DumpFile($file, $data); + + # A string with multiple YAML streams in it + $yaml = Dump(@data); + @data = Load($yaml); + + # Dumping into a pre-existing output buffer + my $yaml; + DumpInto(\$yaml, @data); + +# DESCRIPTION + +This module provides a Perl interface to the **libsyck** data serialization +library. It exports the `Dump` and `Load` functions for converting +Perl data structures to YAML strings, and the other way around. + +**NOTE**: If you are working with other language's YAML/Syck bindings +(such as Ruby), please set `$YAML::Syck::ImplicitTyping` to `1` before +calling the `Load`/`Dump` functions. The default setting is for +preserving backward-compatibility with `YAML.pm`. + +# Differences Between YAML::Syck and YAML + +## Error handling + +Some calls are designed to die rather than returning YAML. You should wrap +your calls in eval to assure you do not get unexpected results. + +# FLAGS + +## $YAML::Syck::Headless + +Defaults to false. Setting this to a true value will make `Dump` omit the +leading `---\n` marker. + +## $YAML::Syck::SortKeys + +Defaults to false. Setting this to a true value will make `Dump` sort +hash keys. + +## $YAML::Syck::SingleQuote + +Defaults to false. Setting this to a true value will make `Dump` always emit +single quotes instead of bare strings. + +## $YAML::Syck::ImplicitTyping + +Defaults to false. Setting this to a true value will make `Load` recognize +various implicit types in YAML, such as unquoted `true`, `false`, as well as +integers and floating-point numbers. Otherwise, only `~` is recognized to +be `undef`. + +## $YAML::Syck::ImplicitUnicode + +Defaults to false. For Perl 5.8.0 or later, setting this to a true value will +make `Load` set Unicode flag on for every string that contains valid UTF8 +sequences, and make `Dump` return a unicode string. + +Regardless of this flag, Unicode strings are dumped verbatim without escaping; +byte strings with high-bit set will be dumped with backslash escaping. + +However, because YAML does not distinguish between these two kinds of strings, +so this flag will affect loading of both variants of strings. + +If you want to use LoadFile or DumpFile with unicode, you are required to open +your own file in order to assure it's UTF8 encoded: + + open(my $fh, ">:encoding(UTF-8)", "out.yml"); + DumpFile($fh, $hashref); + +## $YAML::Syck::ImplicitBinary + +Defaults to false. For Perl 5.8.0 or later, setting this to a true value will +make `Dump` generate Base64-encoded `!!binary` data for all non-Unicode +scalars containing high-bit bytes. + +## $YAML::Syck::UseCode / $YAML::Syck::LoadCode / $YAML::Syck::DumpCode + +These flags control whether or not to try and eval/deparse perl source code; +each of them defaults to false. + +Setting `$YAML::Syck::UseCode` to a true value is equivalent to setting +both `$YAML::Syck::LoadCode` and `$YAML::Syck::DumpCode` to true. + +## $YAML::Syck::LoadBlessed + +Defaults to false. Setting to true will allow YAML::Syck to bless objects as it +imports objects. This default changed in 1.32. + +You can create any kind of object with YAML. The creation itself is not the +critical part. If the class has a DESTROY method, it will be called once the +object is deleted. An example with File::Temp removing files can be found at +[https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=862373](https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=862373) + +# BUGS + +Dumping Glob/IO values do not work yet. + +Dumping of Tied variables is unsupported. + +Dumping into tied (or other magic variables) with `DumpInto` might not work +properly in all cases. + +# CAVEATS + +This module implements the YAML 1.0 spec. To deal with data in YAML 1.1, +please use the `YAML::XS` module instead. + +The current implementation bundles libsyck source code; if your system has a +site-wide shared libsyck, it will _not_ be used. + +Tag names such as `!!perl/hash:Foo` is blessed into the package `Foo`, but +the `!hs/foo` and `!!hs/Foo` tags are blessed into `hs::Foo`. Note that +this holds true even if the tag contains non-word characters; for example, +`!haskell.org/Foo` is blessed into `haskell.org::Foo`. Please use +[Class::Rebless](https://metacpan.org/pod/Class::Rebless) to cast it into other user-defined packages. You can also +set the LoadBlessed flag false to disable all blessing. + +This module has [a lot of known +issues](https://rt.cpan.org/Public/Dist/Display.html?Name=YAML-Syck) +and has only been semi-actively maintained since 2007. If you +encounter an issue with it probably won't be fixed unless you [offer +up a patch](http://github.com/toddr/YAML-Syck) in Git that's ready for +release. + +There are still good reasons to use this module, such as better +interoperability with other syck wrappers (like Ruby's), or some edge +case of YAML's syntax that it handles better. It'll probably work +perfectly for you, but if it doesn't you may want to look at +[YAML::XS](https://metacpan.org/pod/YAML::XS), or perhaps at looking another serialization format like +[JSON](https://metacpan.org/pod/JSON). + +# SEE ALSO + +[YAML](https://metacpan.org/pod/YAML), [JSON::Syck](https://metacpan.org/pod/JSON::Syck) + +[http://www.yaml.org/](http://www.yaml.org/) + +# AUTHORS + +Audrey Tang <[email protected]> + +# COPYRIGHT + +Copyright 2005-2009 by Audrey Tang <[email protected]>. + +This software is released under the MIT license cited below. + +The `libsyck` code bundled with this library is released by +"why the lucky stiff", under a BSD-style license. See the `COPYING` +file for details. + +## The "MIT" License + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS +OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL +THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER +DEALINGS IN THE SOFTWARE. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/lib/JSON/Syck.pm new/YAML-Syck-1.32/lib/JSON/Syck.pm --- old/YAML-Syck-1.31/lib/JSON/Syck.pm 2018-10-25 21:15:27.000000000 +0200 +++ new/YAML-Syck-1.32/lib/JSON/Syck.pm 2020-01-27 20:58:00.000000000 +0100 @@ -1,16 +1,15 @@ package JSON::Syck; use strict; -use vars qw( $VERSION @EXPORT_OK @ISA ); + use Exporter; use YAML::Syck (); -BEGIN { - $VERSION = '1.31'; - @EXPORT_OK = qw( Load Dump LoadFile DumpFile DumpInto ); - @ISA = 'Exporter'; - *Load = \&YAML::Syck::LoadJSON; - *Dump = \&YAML::Syck::DumpJSON; -} +our $VERSION = '1.31'; +our @EXPORT_OK = qw( Load Dump LoadFile DumpFile DumpInto ); +our @ISA = qw/Exporter/; + +*Load = \&YAML::Syck::LoadJSON; +*Dump = \&YAML::Syck::DumpJSON; sub DumpFile { my $file = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/lib/YAML/Syck.pm new/YAML-Syck-1.32/lib/YAML/Syck.pm --- old/YAML-Syck-1.31/lib/YAML/Syck.pm 2018-10-25 21:15:27.000000000 +0200 +++ new/YAML-Syck-1.32/lib/YAML/Syck.pm 2020-01-27 21:18:17.000000000 +0100 @@ -3,37 +3,22 @@ # See documentation after the __END__ mark. use strict; -use vars qw( - @ISA @EXPORT @EXPORT_OK $VERSION - $Headless $SortKeys $SingleQuote - $ImplicitBinary $ImplicitTyping $ImplicitUnicode - $UseCode $LoadCode $DumpCode - $DeparseObject $LoadBlessed -); + +our ( $Headless, $SingleQuote, $ImplicitBinary, $ImplicitTyping, $ImplicitUnicode, $UseCode, $LoadCode, $DumpCode, $DeparseObject ); + use 5.006; use Exporter; +use XSLoader (); -BEGIN { - $VERSION = '1.31'; - @EXPORT = qw( Dump Load DumpFile LoadFile ); - @EXPORT_OK = qw( DumpInto ); - @ISA = qw( Exporter ); - - $SortKeys = 1; - $LoadBlessed = 1; - - local $@; - eval { - require XSLoader; - XSLoader::load( __PACKAGE__, $VERSION ); - 1; - } or do { - require DynaLoader; - push @ISA, 'DynaLoader'; - __PACKAGE__->bootstrap($VERSION); - }; +our $VERSION = '1.32'; +our @EXPORT = qw( Dump Load DumpFile LoadFile ); +our @EXPORT_OK = qw( DumpInto ); +our @ISA = qw( Exporter ); -} +our $SortKeys = 1; +our $LoadBlessed = 0; + +XSLoader::load( 'YAML::Syck', $VERSION ); use constant QR_MAP => { '' => sub { qr{$_[0]} }, @@ -250,12 +235,13 @@ =head2 $YAML::Syck::LoadBlessed -Defaults to true. Setting to false will block YAML::Syck from doing ANY -blessing. This is an interface change since 1.21. The variable name was -misleading, implying that no blessing would happen when in fact it did. +Defaults to false. Setting to true will allow YAML::Syck to bless objects as it +imports objects. This default changed in 1.32. -Prior to 1.22, setting this to a false value only prevented C<Load> from -blessing tag names that did not begin with C<!!perl> or C<!perl>;. +You can create any kind of object with YAML. The creation itself is not the +critical part. If the class has a DESTROY method, it will be called once the +object is deleted. An example with File::Temp removing files can be found at +L<https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=862373|https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=862373> =head1 BUGS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/2-scalars.t new/YAML-Syck-1.32/t/2-scalars.t --- old/YAML-Syck-1.31/t/2-scalars.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/2-scalars.t 2020-01-27 21:12:49.000000000 +0100 @@ -5,10 +5,13 @@ ok( YAML::Syck->VERSION, "YAML::Syck has a version and is loaded" ); +# These tests assume object creation. +$YAML::Syck::LoadBlessed = 1; + is( Dump(42), "--- 42\n", 'Dump a simple number' ); -is( Load("--- 42\n"), 42, "Load a simple number"); +is( Load("--- 42\n"), 42, "Load a simple number" ); -is( Dump( \42 ), "--- !!perl/ref \n=: 42\n", "A pointer to 42 dumps" ); +is( Dump( \42 ), "--- !!perl/ref \n=: 42\n", "A pointer to 42 dumps" ); is( ${ Load("--- !!perl/ref \n=: 42\n") }, 42, "A pointer to 42 loads" ); my $x; @@ -56,7 +59,7 @@ ok( defined $sub ); -is( ref($sub), "CODE" ); +is( ref($sub), "CODE" ); is( eval { $sub->("bar") }, "foobar" ); is( $@, "", "no error" ); @@ -238,7 +241,7 @@ is( Dump('nULL'), "--- nULL\n" ); # invalid case # RT 52432 - '... X' -my $bad_hash = { '... X' => '' }; +my $bad_hash = { '... X' => '' }; my $bad_hash_should = "--- \n... X: ''\n"; TODO: { local $TODO; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/3-objects.t new/YAML-Syck-1.32/t/3-objects.t --- old/YAML-Syck-1.31/t/3-objects.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/3-objects.t 2020-01-27 21:12:49.000000000 +0100 @@ -10,6 +10,9 @@ ok( YAML::Syck->VERSION ); +# These tests assume object creation. +$YAML::Syck::LoadBlessed = 1; + is( Dump( bless( {}, 'foo' ) ), "--- !!perl/hash:foo {}\n\n" ); sub ref_ok { @@ -74,8 +77,8 @@ { my $hash = Load( Dump( bless( { 1 .. 4 }, "code" ) ) ); - is( ref($hash), "code", "blessed to code" ); - is( eval { $hash->{1} }, 2, "it's a hash" ); + is( ref($hash), "code", "blessed to code" ); + is( eval { $hash->{1} }, 2, "it's a hash" ); } TODO: { @@ -111,12 +114,12 @@ ) ); -my $hash = { a => [ 42, [], {} ], h => { 53, 12 } }; +my $hash = { a => [ 42, [], {} ], h => { 53, 12 } }; my $loaded = Load( Dump($hash) ); is_deeply $loaded => $hash, "Deep hash round trips"; my $blesshash = bless { a => [ 42, [], bless( {}, 'foo' ) ], h => { 53, 12 } }, 'bar'; -my $stripped = Load( Dump($blesshash) ); +my $stripped = Load( Dump($blesshash) ); is_deeply $stripped => $hash, "Deep hash round trips and strip blessings"; $YAML::Syck::LoadBlessed = 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/4-perl_tag_scheme.t new/YAML-Syck-1.32/t/4-perl_tag_scheme.t --- old/YAML-Syck-1.31/t/4-perl_tag_scheme.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/4-perl_tag_scheme.t 2020-01-27 21:12:49.000000000 +0100 @@ -5,6 +5,9 @@ ok( YAML::Syck->VERSION ); +# These tests assume object creation. +$YAML::Syck::LoadBlessed = 1; + #use YAML; #use Test::More 'no_plan'; @@ -52,7 +55,7 @@ } { - my $hash = { foo => "bar" }; + my $hash = { foo => "bar" }; my $deep_scalar = \$hash; yaml_is( Dump($deep_scalar), "--- !!perl/ref\n=:\n foo: bar\n" ); bless $deep_scalar, "Foo::Bar"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/manifest.t new/YAML-Syck-1.32/t/manifest.t --- old/YAML-Syck-1.31/t/manifest.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/manifest.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,15 +0,0 @@ -#!perl -T -use 5.006; -use strict; -use warnings; -use Test::More; - -unless ( $ENV{RELEASE_TESTING} ) { - plan( skip_all => "Author tests not required for installation" ); -} - -my $min_tcm = 0.9; -eval "use Test::CheckManifest $min_tcm"; -plan skip_all => "Test::CheckManifest $min_tcm required" if $@; - -ok_manifest(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/meta.t new/YAML-Syck-1.32/t/meta.t --- old/YAML-Syck-1.31/t/meta.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/meta.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,9 +0,0 @@ -use strict; -use warnings; -use Test::More tests => 1; - -use FindBin; -use YAML::Syck; - -my $yaml = YAML::Syck::LoadFile( $FindBin::Bin . '/../META.yml' ); -is( $yaml->{'version'}, $YAML::Syck::VERSION, "META.yml file is correct - To regenerate, run: 'make purge; perl Makefile.pl'" ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/yaml-alias.t new/YAML-Syck-1.32/t/yaml-alias.t --- old/YAML-Syck-1.31/t/yaml-alias.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/yaml-alias.t 2020-01-27 21:12:49.000000000 +0100 @@ -2,20 +2,23 @@ use Test::More tests => 14; use YAML::Syck; +# These tests assume object creation. +$YAML::Syck::LoadBlessed = 1; + my ( $undumped, $roundtripped ); -$undumped = [ {} ]; +$undumped = [ {} ]; $undumped->[1] = $undumped->[0]; -$roundtripped = Load( Dump($undumped) ); +$roundtripped = Load( Dump($undumped) ); is( Dump($roundtripped), Dump($undumped), "array with anchor" ); $undumped->[1] = 'xyz'; $roundtripped->[1] = 'xyz'; is( Dump($roundtripped), Dump($undumped), "touched array with anchor" ); -$undumped = { abc => {} }; +$undumped = { abc => {} }; $undumped->{'def'} = $undumped->{'abc'}; -$roundtripped = Load( Dump($undumped) ); +$roundtripped = Load( Dump($undumped) ); is( Dump($roundtripped), Dump($undumped), "hash with anchor" ); $undumped->{'def'} = 'xyz'; @@ -31,7 +34,7 @@ $roundtripped->[0] = 'xyz'; is( Dump($roundtripped), Dump($undumped), "touched huge array with anchor" ); -$undumped = { abc => {}, def => {} }; +$undumped = { abc => {}, def => {} }; $undumped->{abc}->{sibling} = $undumped->{def}; $undumped->{def}->{sibling} = $undumped->{abc}; $roundtripped = Load( Dump($undumped) ); @@ -53,7 +56,7 @@ is( Dump($roundtripped), Dump($undumped), "touched many anchors" ); my $s = 'scal'; -$undumped = [ \$s, \$s, \$s ]; +$undumped = [ \$s, \$s, \$s ]; $roundtripped = Load( Dump($undumped) ); is( Dump($roundtripped), Dump($undumped), "scalar reference" ); @@ -65,7 +68,7 @@ my $oa = bless ['array'], 'obj_array'; my $oh = bless { key => 'value' }, 'obj_hash'; -$undumped = [ $os, $oa, $oh, $os, $oa, $oh ]; +$undumped = [ $os, $oa, $oh, $os, $oa, $oh ]; $roundtripped = Load( Dump($undumped) ); TODO: { local $TODO = "Skip this because anchor #1 is going to be truncated. no problem"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.31/t/yaml-blessed-ref.t new/YAML-Syck-1.32/t/yaml-blessed-ref.t --- old/YAML-Syck-1.31/t/yaml-blessed-ref.t 2018-10-25 21:20:12.000000000 +0200 +++ new/YAML-Syck-1.32/t/yaml-blessed-ref.t 2020-01-27 21:12:49.000000000 +0100 @@ -6,7 +6,10 @@ use YAML::Syck; use Data::Dumper; -my $bref = bless \eval { my $scalar = 'YAML::Syck' }, 'foo'; +# These tests assume object creation. +$YAML::Syck::LoadBlessed = 1; + +my $bref = bless \eval { my $scalar = 'YAML::Syck' }, 'foo'; my $bref2bref = bless \$bref, 'bar'; my $dd = Dumper $bref2bref;
