Hello community, here is the log from the commit of package perl-YAML-Syck for openSUSE:Factory checked in at 2011-11-10 16:02:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-YAML-Syck (Old) and /work/SRC/openSUSE:Factory/.perl-YAML-Syck.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-YAML-Syck", Maintainer is "MRueckert@suse.com" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-YAML-Syck/perl-YAML-Syck.changes 2011-09-23 12:39:33.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-YAML-Syck.new/perl-YAML-Syck.changes 2011-11-10 16:02:11.000000000 +0100 @@ -1,0 +2,13 @@ +Tue Nov 08 10:08:08 UTC 2011 - pascal.bleser@opensuse.org + +- update to 1.19: no user-visible changes + +------------------------------------------------------------------- +Sun Nov 06 23:40:07 UTC 2011 - pascal.bleser@opensuse.org + +- update to 1.18: + * perl RT#102606 - only lvalue subroutines are supposed to return the + argument to "return" without copying it; stop relying on a pre-5.15 bug + * break YAML::Syck dependency on Scalar::Util + +------------------------------------------------------------------- Old: ---- YAML-Syck-1.17.tar.gz New: ---- YAML-Syck-1.19.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-YAML-Syck.spec ++++++ --- /var/tmp/diff_new_pack.AraJ8W/_old 2011-11-10 16:02:12.000000000 +0100 +++ /var/tmp/diff_new_pack.AraJ8W/_new 2011-11-10 16:02:12.000000000 +0100 @@ -18,20 +18,18 @@ Name: perl-YAML-Syck -Version: 1.17 +Version: 1.19 Release: 1 License: MIT %define cpan_name YAML-Syck Summary: Fast, lightweight YAML loader and dumper Url: http://search.cpan.org/dist/YAML-Syck/ Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/A/AV/AVAR/YAML-Syck-%{version}.tar.gz +# http://search.cpan.org/CPAN/authors/id/S/SM/SMUELLER/YAML-Syck-%{version}.tar.gz Source: %{cpan_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Scalar::Util) -Requires: perl(Scalar::Util) %{perl_requires} %description ++++++ YAML-Syck-1.17.tar.gz -> YAML-Syck-1.19.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/Changes new/YAML-Syck-1.19/Changes --- old/YAML-Syck-1.17/Changes 2010-11-21 17:41:23.000000000 +0100 +++ new/YAML-Syck-1.19/Changes 2011-11-08 07:49:33.000000000 +0100 @@ -1,4 +1,23 @@ -[Changes for 1.17 (YAML::Syck 0.40 ) - 2010-11-21] +[Changes for 1.19 (JSON::Syck 0.42 ) - 2011-11-08] + +* Do not run t/leak.t on perls prior to 5.8.9 as 5.8.8 + and Devel::Leak apparently do not mix (perl RT #102606). + +[Changes for 1.18 (JSON::Syck 0.41 ) - 2011-11-05] + +* Promote to stable release. + +[Changes for 1.17_02 (JSON::Syck 0.40_02 ) - 2011-11-03] + +* perl RT #102606 - Only lvalue subroutines are supposed to return + the argument to "return" without copying it. Stop relying on a + pre-5.15 bug. [Father Chrysostomos] + +[Changes for 1.17_01 (JSON::Syck 0.40_01 ) - 2011-02-28] + +* Break YAML::Syck dependency on Scalar::Util + +[Changes for 1.17 (JSON::Syck 0.40 ) - 2010-11-21] * Change a C99 comment to a C89 comment @@ -6,11 +25,11 @@ * Remove inc/Test/Builder/IO/Scalar.pm from MANIFEST -[Changes for 1.16 (YAML::Syck 0.39 ) - 2010-11-21] +[Changes for 1.16 (JSON::Syck 0.39 ) - 2010-11-21] * POD formatting fixes contributed by Justin Hunter -[Changes for 1.15 (YAML::Syck 0.38 ) - 2010-09-23] +[Changes for 1.15 (JSON::Syck 0.38 ) - 2010-09-23] * perl RT #78008 - The 5.13.5 development release of perl changed how regexes are stringified, breaking our tests. Update the tests to @@ -19,26 +38,26 @@ See fb85c04 (http://perl5.git.perl.org/perl.git/commit/fb85c04) in perl.git for context. -[Changes for 1.14 (YAML::Syck 0.37 ) - 2010-08-03] +[Changes for 1.14 (JSON::Syck 0.37 ) - 2010-08-03] * RT RT60771 - Further refactor for JSON. if a number is a valid perl string, quote it. "1" + "1" = "11" in javascript. * add YAML tests to make sure HEX and octal preserve their information -[Changes for 1.13 (YAML::Syck 0.36 ) - 2010-08-03] +[Changes for 1.13 (JSON::Syck 0.36 ) - 2010-08-03] * RT RT60771 - quoted negative integer and quoted zeroes. This was breaking JSON since "0" is true in javascript. -[Changes for 1.12 (YAML::Syck 0.35 ) - 2010-08-03] +[Changes for 1.12 (JSON::Syck 0.35 ) - 2010-08-03] * The tie test proved to be very unstable for 5.8 and it's not relevant for tie actually. I'm converting it to a TODO for -[Changes for 1.11 (YAML::Syck 0.35 ) - 2010-08-03] +[Changes for 1.11 (JSON::Syck 0.35 ) - 2010-08-03] * Tests are now stable. releasing 1.11 -[Changes for 1.10_07 (YAML::Syck 0.34 ) - 2010-07-29] +[Changes for 1.10_07 (JSON::Syck 0.34 ) - 2010-07-29] * META.yml missing -[Changes for 1.10_06 (YAML::Syck 0.34 ) - 2010-07-29] +[Changes for 1.10_06 (JSON::Syck 0.34 ) - 2010-07-29] * Load of in-memory file handles not previously tested (was eval'd out of existance) Corrected code and test to behave correctly. * Perl 5.8 required to YAML-ify code refs @@ -46,21 +65,21 @@ * use SvNIOK to test for int or float if we know it's not a string * Attempt again to get 5.8.7 skipped for tie test -[Changes for 1.10_05 (YAML::Syck 0.34 ) - 2010-07-28] +[Changes for 1.10_05 (JSON::Syck 0.34 ) - 2010-07-28] * Skip failing tie test on perl < 5.8.8 && perl >= 5.7.0x -[Changes for 1.10_04 (YAML::Syck 0.34 ) - 2010-07-19] +[Changes for 1.10_04 (JSON::Syck 0.34 ) - 2010-07-19] * RT 23850 - META.yml of DMAKI/DateTime-Format-Japanese-0.01.tar.gz cannot be parsed * RT 34073 - TODO Tests - Parsing YAML without separator * RT 20969 - Document die behavior differences with YAML -[Changes for 1.10_03 (YAML::Syck 0.34 ) - 2010-07-19] +[Changes for 1.10_03 (JSON::Syck 0.34 ) - 2010-07-19] * TODO tests to cover noted deficiencies in RT #'s 26182, 54780, 49404, 42390 * RT 23909 - Loaded self-refererring document is corrupted -[Changes for 1.10_02 (YAML::Syck 0.34 ) - 2010-07-19] +[Changes for 1.10_02 (JSON::Syck 0.34 ) - 2010-07-19] * RT 50227 - Logic bug in deciding what numbers to quote led to some interesting corner cases. Now only 9digit integers are supported as unquoted. Everything else will be forced to quote diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/META.yml new/YAML-Syck-1.19/META.yml --- old/YAML-Syck-1.17/META.yml 2010-11-21 17:42:52.000000000 +0100 +++ new/YAML-Syck-1.19/META.yml 2011-11-02 11:22:08.000000000 +0100 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: 6.42 distribution_type: module -generated_by: 'Module::Install version 1.00' +generated_by: 'Module::Install version 1.02' license: mit meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -18,11 +18,10 @@ - inc - t requires: - Scalar::Util: 0 perl: 5.6.0 resources: bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=YAML-Syck homepage: http://search.cpan.org/dist/YAML-Syck license: http://opensource.org/licenses/mit-license.php repository: http://github.com/avar/YAML-Syck -version: 1.17 +version: 1.17_01 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/Makefile.PL new/YAML-Syck-1.19/Makefile.PL --- old/YAML-Syck-1.17/Makefile.PL 2010-07-23 17:22:32.000000000 +0200 +++ new/YAML-Syck-1.19/Makefile.PL 2011-11-02 08:33:59.000000000 +0100 @@ -38,7 +38,6 @@ can_cc or die "This module requires a C compiler"; include_deps 'Test::More'; -requires 'Scalar::Util'; build_requires 'Devel::Leak' if defined $ENV{'AUTOMATED_TESTING'}; homepage 'http://search.cpan.org/dist/YAML-Syck'; repository 'http://github.com/avar/YAML-Syck'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Base.pm new/YAML-Syck-1.19/inc/Module/Install/Base.pm --- old/YAML-Syck-1.17/inc/Module/Install/Base.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Base.pm 2011-11-02 11:22:07.000000000 +0100 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Can.pm new/YAML-Syck-1.19/inc/Module/Install/Can.pm --- old/YAML-Syck-1.17/inc/Module/Install/Can.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Can.pm 2011-11-02 11:22:07.000000000 +0100 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Compiler.pm new/YAML-Syck-1.19/inc/Module/Install/Compiler.pm --- old/YAML-Syck-1.17/inc/Module/Install/Compiler.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Compiler.pm 2011-11-02 11:22:07.000000000 +0100 @@ -7,7 +7,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Fetch.pm new/YAML-Syck-1.19/inc/Module/Install/Fetch.pm --- old/YAML-Syck-1.17/inc/Module/Install/Fetch.pm 2010-11-21 17:42:52.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Fetch.pm 2011-11-02 11:22:07.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Include.pm new/YAML-Syck-1.19/inc/Module/Install/Include.pm --- old/YAML-Syck-1.17/inc/Module/Install/Include.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Include.pm 2011-11-02 11:22:07.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Makefile.pm new/YAML-Syck-1.19/inc/Module/Install/Makefile.pm --- old/YAML-Syck-1.17/inc/Module/Install/Makefile.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Makefile.pm 2011-11-02 11:22:07.000000000 +0100 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Metadata.pm new/YAML-Syck-1.19/inc/Module/Install/Metadata.pm --- old/YAML-Syck-1.17/inc/Module/Install/Metadata.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Metadata.pm 2011-11-02 11:22:07.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -170,7 +170,7 @@ # Normalize the version $version = $self->_perl_version($version); - # We don't support the reall old versions + # We don't support the really old versions unless ( $version >= 5.005 ) { die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n"; } @@ -515,6 +515,7 @@ 'GNU Free Documentation license' => 'unrestricted', 1, 'GNU Affero General Public License' => 'open_source', 1, '(?:Free)?BSD license' => 'bsd', 1, + 'Artistic license 2\.0' => 'artistic_2', 1, 'Artistic license' => 'artistic', 1, 'Apache (?:Software )?license' => 'apache', 1, 'GPL' => 'gpl', 1, @@ -550,9 +551,9 @@ sub _extract_bugtracker { my @links = $_[0] =~ m#L<( - \Qhttp://rt.cpan.org/\E[^>]+| - \Qhttp://github.com/\E[\w_]+/[\w_]+/issues| - \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list + https?\Q://rt.cpan.org/\E[^>]+| + https?\Q://github.com/\E[\w_]+/[\w_]+/issues| + https?\Q://code.google.com/p/\E[\w_\-]+/issues/list )>#gx; my %links; @links{@links}=(); @@ -581,7 +582,7 @@ sub requires_from { my $self = shift; my $content = Module::Install::_readperl($_[0]); - my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg; + my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg; while ( @requires ) { my $module = shift @requires; my $version = shift @requires; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/Win32.pm new/YAML-Syck-1.19/inc/Module/Install/Win32.pm --- old/YAML-Syck-1.17/inc/Module/Install/Win32.pm 2010-11-21 17:42:52.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/Win32.pm 2011-11-02 11:22:07.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install/WriteAll.pm new/YAML-Syck-1.19/inc/Module/Install/WriteAll.pm --- old/YAML-Syck-1.17/inc/Module/Install/WriteAll.pm 2010-11-21 17:42:52.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install/WriteAll.pm 2011-11-02 11:22:07.000000000 +0100 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.00'; + $VERSION = '1.02'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Module/Install.pm new/YAML-Syck-1.19/inc/Module/Install.pm --- old/YAML-Syck-1.17/inc/Module/Install.pm 2010-11-21 17:42:50.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Module/Install.pm 2011-11-02 11:22:07.000000000 +0100 @@ -31,7 +31,7 @@ # This is not enforced yet, but will be some time in the next few # releases once we can make sure it won't clash with custom # Module::Install extensions. - $VERSION = '1.00'; + $VERSION = '1.02'; # Storage for the pseudo-singleton $MAIN = undef; @@ -467,4 +467,4 @@ 1; -# Copyright 2008 - 2010 Adam Kennedy. +# Copyright 2008 - 2011 Adam Kennedy. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/PerlIO.pm new/YAML-Syck-1.19/inc/PerlIO.pm --- old/YAML-Syck-1.17/inc/PerlIO.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/PerlIO.pm 2011-11-02 11:22:07.000000000 +0100 @@ -1,7 +1,7 @@ #line 1 package PerlIO; -our $VERSION = '1.06'; +our $VERSION = '1.07'; # Map layer name to package that defines it our %alias; @@ -30,4 +30,4 @@ 1; __END__ -#line 344 +#line 332 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Test/Builder/Module.pm new/YAML-Syck-1.19/inc/Test/Builder/Module.pm --- old/YAML-Syck-1.17/inc/Test/Builder/Module.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Test/Builder/Module.pm 2011-11-02 11:22:07.000000000 +0100 @@ -8,7 +8,7 @@ require Exporter; our @ISA = qw(Exporter); -our $VERSION = '0.97_01'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Test/Builder.pm new/YAML-Syck-1.19/inc/Test/Builder.pm --- old/YAML-Syck-1.17/inc/Test/Builder.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Test/Builder.pm 2011-11-02 11:22:07.000000000 +0100 @@ -5,7 +5,7 @@ use strict; use warnings; -our $VERSION = '0.97_01'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) BEGIN { @@ -191,6 +191,8 @@ if( $self->{Child_Name} ) { $self->croak("Can't call finalize() with child ($self->{Child_Name}) active"); } + + local $? = 0; # don't fail if $subtests happened to set $? nonzero $self->_ending; # XXX This will only be necessary for TAP envelopes (we think) @@ -224,11 +226,11 @@ return $self->{Indent}; } -#line 357 +#line 359 sub parent { shift->{Parent} } -#line 369 +#line 371 sub name { shift->{Name} } @@ -244,7 +246,7 @@ } } -#line 393 +#line 395 our $Level; @@ -291,7 +293,7 @@ return; } -#line 472 +#line 474 my %plan_cmds = ( no_plan => \&no_plan, @@ -338,7 +340,7 @@ return; } -#line 527 +#line 529 sub expected_tests { my $self = shift; @@ -356,7 +358,7 @@ return $self->{Expected_Tests}; } -#line 551 +#line 553 sub no_plan { my($self, $arg) = @_; @@ -369,7 +371,7 @@ return 1; } -#line 584 +#line 586 sub _output_plan { my($self, $max, $directive, $reason) = @_; @@ -388,7 +390,7 @@ } -#line 636 +#line 638 sub done_testing { my($self, $num_tests) = @_; @@ -431,7 +433,7 @@ } -#line 687 +#line 689 sub has_plan { my $self = shift; @@ -441,7 +443,7 @@ return(undef); } -#line 704 +#line 706 sub skip_all { my( $self, $reason ) = @_; @@ -455,7 +457,7 @@ exit(0); } -#line 729 +#line 731 sub exported_to { my( $self, $pack ) = @_; @@ -466,7 +468,7 @@ return $self->{Exported_To}; } -#line 759 +#line 761 sub ok { my( $self, $test, $name ) = @_; @@ -626,7 +628,7 @@ return $numval != 0 and $numval ne $val ? 1 : 0; } -#line 933 +#line 939 sub is_eq { my( $self, $got, $expect, $name ) = @_; @@ -705,7 +707,7 @@ DIAGNOSTIC } -#line 1026 +#line 1032 sub isnt_eq { my( $self, $got, $dont_expect, $name ) = @_; @@ -739,7 +741,7 @@ return $self->cmp_ok( $got, '!=', $dont_expect, $name ); } -#line 1075 +#line 1081 sub like { my( $self, $this, $regex, $name ) = @_; @@ -755,7 +757,7 @@ return $self->_regex_ok( $this, $regex, '!~', $name ); } -#line 1099 +#line 1105 my %numeric_cmps = map { ( $_, 1 ) } ( "<", "<=", ">", ">=", "==", "!=", "<=>" ); @@ -836,7 +838,7 @@ return $code; } -#line 1199 +#line 1205 sub BAIL_OUT { my( $self, $reason ) = @_; @@ -846,14 +848,14 @@ exit 255; } -#line 1212 +#line 1218 { no warnings 'once'; *BAILOUT = \&BAIL_OUT; } -#line 1226 +#line 1232 sub skip { my( $self, $why ) = @_; @@ -884,7 +886,7 @@ return 1; } -#line 1267 +#line 1273 sub todo_skip { my( $self, $why ) = @_; @@ -912,7 +914,7 @@ return 1; } -#line 1347 +#line 1353 sub maybe_regex { my( $self, $regex ) = @_; @@ -992,7 +994,7 @@ # I'm not ready to publish this. It doesn't deal with array return # values from the code or context. -#line 1443 +#line 1449 sub _try { my( $self, $code, %opts ) = @_; @@ -1012,7 +1014,7 @@ return wantarray ? ( $return, $error ) : $return; } -#line 1472 +#line 1478 sub is_fh { my $self = shift; @@ -1026,7 +1028,7 @@ eval { tied($maybe_fh)->can('TIEHANDLE') }; } -#line 1515 +#line 1521 sub level { my( $self, $level ) = @_; @@ -1037,7 +1039,7 @@ return $Level; } -#line 1547 +#line 1553 sub use_numbers { my( $self, $use_nums ) = @_; @@ -1048,7 +1050,7 @@ return $self->{Use_Nums}; } -#line 1580 +#line 1586 foreach my $attribute (qw(No_Header No_Ending No_Diag)) { my $method = lc $attribute; @@ -1066,7 +1068,7 @@ *{ __PACKAGE__ . '::' . $method } = $code; } -#line 1633 +#line 1639 sub diag { my $self = shift; @@ -1074,7 +1076,7 @@ $self->_print_comment( $self->_diag_fh, @_ ); } -#line 1648 +#line 1654 sub note { my $self = shift; @@ -1111,7 +1113,7 @@ return 0; } -#line 1698 +#line 1704 sub explain { my $self = shift; @@ -1130,7 +1132,7 @@ } @_; } -#line 1727 +#line 1733 sub _print { my $self = shift; @@ -1159,7 +1161,7 @@ return print $fh $indent, $msg; } -#line 1787 +#line 1793 sub output { my( $self, $fh ) = @_; @@ -1286,7 +1288,7 @@ } -#line 1920 +#line 1926 sub reset_outputs { my $self = shift; @@ -1298,7 +1300,7 @@ return; } -#line 1946 +#line 1952 sub _message_at_caller { my $self = shift; @@ -1319,7 +1321,7 @@ } -#line 1986 +#line 1992 sub current_test { my( $self, $num ) = @_; @@ -1352,7 +1354,7 @@ return $self->{Curr_Test}; } -#line 2034 +#line 2040 sub is_passing { my $self = shift; @@ -1365,7 +1367,7 @@ } -#line 2056 +#line 2062 sub summary { my($self) = shift; @@ -1373,14 +1375,14 @@ return map { $_->{'ok'} } @{ $self->{Test_Results} }; } -#line 2111 +#line 2117 sub details { my $self = shift; return @{ $self->{Test_Results} }; } -#line 2140 +#line 2146 sub todo { my( $self, $pack ) = @_; @@ -1394,7 +1396,7 @@ return ''; } -#line 2167 +#line 2173 sub find_TODO { my( $self, $pack, $set, $new_value ) = @_; @@ -1408,7 +1410,7 @@ return $old_value; } -#line 2187 +#line 2193 sub in_todo { my $self = shift; @@ -1417,7 +1419,7 @@ return( defined $self->{Todo} || $self->find_TODO ) ? 1 : 0; } -#line 2237 +#line 2243 sub todo_start { my $self = shift; @@ -1432,7 +1434,7 @@ return; } -#line 2259 +#line 2265 sub todo_end { my $self = shift; @@ -1453,7 +1455,7 @@ return; } -#line 2292 +#line 2298 sub caller { ## no critic (Subroutines::ProhibitBuiltinHomonyms) my( $self, $height ) = @_; @@ -1468,9 +1470,9 @@ return wantarray ? @caller : $caller[0]; } -#line 2309 +#line 2315 -#line 2323 +#line 2329 #'# sub _sanity_check { @@ -1483,7 +1485,7 @@ return; } -#line 2344 +#line 2350 sub _whoa { my( $self, $check, $desc ) = @_; @@ -1498,7 +1500,7 @@ return; } -#line 2368 +#line 2374 sub _my_exit { $? = $_[0]; ## no critic (Variables::RequireLocalizedPunctuationVars) @@ -1506,7 +1508,7 @@ return 1; } -#line 2380 +#line 2386 sub _ending { my $self = shift; @@ -1625,7 +1627,7 @@ $Test->_ending if defined $Test; } -#line 2568 +#line 2574 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/Test/More.pm new/YAML-Syck-1.19/inc/Test/More.pm --- old/YAML-Syck-1.17/inc/Test/More.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/Test/More.pm 2011-11-02 11:22:07.000000000 +0100 @@ -18,7 +18,7 @@ return warn @_, " at $file line $line\n"; } -our $VERSION = '0.97_01'; +our $VERSION = '0.98'; $VERSION = eval $VERSION; ## no critic (BuiltinFunctions::ProhibitStringyEval) use Test::Builder::Module; @@ -88,7 +88,7 @@ return $tb->ok( $test, $name ); } -#line 367 +#line 372 sub is ($$;$) { my $tb = Test::More->builder; @@ -104,7 +104,7 @@ *isn't = \&isnt; -#line 411 +#line 416 sub like ($$;$) { my $tb = Test::More->builder; @@ -112,7 +112,7 @@ return $tb->like(@_); } -#line 426 +#line 431 sub unlike ($$;$) { my $tb = Test::More->builder; @@ -120,7 +120,7 @@ return $tb->unlike(@_); } -#line 471 +#line 476 sub cmp_ok($$$;$) { my $tb = Test::More->builder; @@ -128,7 +128,7 @@ return $tb->cmp_ok(@_); } -#line 506 +#line 511 sub can_ok ($@) { my( $proto, @methods ) = @_; @@ -162,7 +162,7 @@ return $ok; } -#line 572 +#line 577 sub isa_ok ($$;$) { my( $object, $class, $obj_name ) = @_; @@ -222,7 +222,7 @@ return $ok; } -#line 651 +#line 656 sub new_ok { my $tb = Test::More->builder; @@ -247,7 +247,7 @@ return $obj; } -#line 736 +#line 741 sub subtest { my ($name, $subtests) = @_; @@ -256,7 +256,7 @@ return $tb->subtest(@_); } -#line 760 +#line 765 sub pass (;$) { my $tb = Test::More->builder; @@ -270,7 +270,7 @@ return $tb->ok( 0, @_ ); } -#line 828 +#line 833 sub use_ok ($;@) { my( $module, @imports ) = @_; @@ -332,7 +332,7 @@ return( $eval_result, $eval_error ); } -#line 897 +#line 902 sub require_ok ($) { my($module) = shift; @@ -376,7 +376,7 @@ return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0; } -#line 974 +#line 979 our( @Data_Stack, %Refs_Seen ); my $DNE = bless [], 'Does::Not::Exist'; @@ -483,7 +483,7 @@ return ''; } -#line 1134 +#line 1139 sub diag { return Test::More->builder->diag(@_); @@ -493,13 +493,13 @@ return Test::More->builder->note(@_); } -#line 1160 +#line 1165 sub explain { return Test::More->builder->explain(@_); } -#line 1226 +#line 1231 ## no critic (Subroutines::RequireFinalReturn) sub skip { @@ -527,7 +527,7 @@ last SKIP; } -#line 1310 +#line 1315 sub todo_skip { my( $why, $how_many ) = @_; @@ -548,7 +548,7 @@ last TODO; } -#line 1365 +#line 1370 sub BAIL_OUT { my $reason = shift; @@ -557,7 +557,7 @@ $tb->BAIL_OUT($reason); } -#line 1404 +#line 1409 #'# sub eq_array { @@ -697,7 +697,7 @@ } } -#line 1551 +#line 1556 sub eq_hash { local @Data_Stack = (); @@ -732,7 +732,7 @@ return $ok; } -#line 1610 +#line 1615 sub eq_set { my( $a1, $a2 ) = @_; @@ -757,6 +757,6 @@ ); } -#line 1812 +#line 1817 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/inc/parent.pm new/YAML-Syck-1.19/inc/parent.pm --- old/YAML-Syck-1.17/inc/parent.pm 2010-11-21 17:42:51.000000000 +0100 +++ new/YAML-Syck-1.19/inc/parent.pm 2011-11-02 11:22:07.000000000 +0100 @@ -2,7 +2,7 @@ package parent; use strict; use vars qw($VERSION); -$VERSION = '0.224'; +$VERSION = '0.225'; sub import { my $class = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/lib/JSON/Syck.pm new/YAML-Syck-1.19/lib/JSON/Syck.pm --- old/YAML-Syck-1.17/lib/JSON/Syck.pm 2010-11-21 17:41:22.000000000 +0100 +++ new/YAML-Syck-1.19/lib/JSON/Syck.pm 2011-11-08 07:49:40.000000000 +0100 @@ -5,7 +5,7 @@ use YAML::Syck (); BEGIN { - $VERSION = '0.40'; + $VERSION = '0.42'; @EXPORT_OK = qw( Load Dump LoadFile DumpFile ); @ISA = 'Exporter'; *Load = \&YAML::Syck::LoadJSON; @@ -27,7 +27,7 @@ sub LoadFile { my $file = shift; - if ( YAML::Syck::_is_openhandle($file) ) { + if ( YAML::Syck::_is_glob($file) ) { if(-z $file) { die("Cannot load an empty file"); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/lib/YAML/Syck.pm new/YAML-Syck-1.19/lib/YAML/Syck.pm --- old/YAML-Syck-1.17/lib/YAML/Syck.pm 2010-11-21 17:41:22.000000000 +0100 +++ new/YAML-Syck-1.19/lib/YAML/Syck.pm 2011-11-08 07:49:57.000000000 +0100 @@ -13,7 +13,7 @@ use Exporter; BEGIN { - $VERSION = '1.17'; + $VERSION = '1.19'; @EXPORT = qw( Dump Load DumpFile LoadFile ); @ISA = qw( Exporter ); @@ -73,30 +73,24 @@ @{$rv}; } else { - YAML::Syck::LoadYAML($_[0]); + @_ = $_[0]; + goto &YAML::Syck::LoadYAML; } } -# NOTE. The code below (_is_openhandle) avoids to require/load -# Scalar::Util unless it is given a ref or glob -# as an argument. That is purposeful, so to avoid -# the need for this dependency unless strictly necessary. -# If that was not the case, Scalar::Util::openhandle could -# be used directly. - -sub _is_openhandle { +sub _is_glob { my $h = shift; - if ( ref($h) || ref(\$h) eq 'GLOB' ) { - require Scalar::Util; - return Scalar::Util::openhandle($h); - } else { - return undef; - } + + return 1 if(ref($h) eq 'GLOB'); + return 1 if(ref(\$h) eq 'GLOB'); + return 1 if(ref($h) =~ m/^IO::/); + + return; } sub DumpFile { my $file = shift; - if ( _is_openhandle($file) ) { + if ( _is_glob($file) ) { if ($#_) { print {$file} YAML::Syck::DumpYAML($_) for @_; } @@ -118,7 +112,7 @@ sub LoadFile { my $file = shift; - if ( _is_openhandle($file) ) { + if ( _is_glob($file) ) { if( -z $file ) { die("Cannot load an empty file"); }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/YAML-Syck-1.17/t/leak.t new/YAML-Syck-1.19/t/leak.t --- old/YAML-Syck-1.17/t/leak.t 2010-07-23 17:22:32.000000000 +0200 +++ new/YAML-Syck-1.19/t/leak.t 2011-11-08 07:47:43.000000000 +0100 @@ -5,8 +5,8 @@ use Test::More tests => 11; SKIP: { - eval { require Devel::Leak } - or skip( "Devel::Leak not installed", 11 ); + eval { require Devel::Leak; require 5.8.9; 1; } + or skip( "Devel::Leak not installed or perl too old", 11 ); # check if arrays leak -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org