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 "mrueck...@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.ble...@opensuse.org
+
+- update to 1.19: no user-visible changes
+
+-------------------------------------------------------------------
+Sun Nov 06 23:40:07 UTC 2011 - pascal.ble...@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+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to