Hello community, here is the log from the commit of package perl-Data-Util for openSUSE:Factory checked in at 2013-06-05 17:50:58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Data-Util (Old) and /work/SRC/openSUSE:Factory/.perl-Data-Util.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Util" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Data-Util/perl-Data-Util.changes 2011-11-21 12:38:35.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Data-Util.new/perl-Data-Util.changes 2013-06-05 17:50:59.000000000 +0200 @@ -1,0 +2,8 @@ +Tue Jun 4 07:49:41 UTC 2013 - [email protected] + +- updated to 0.62 + - Fix a crash on perl 5.17.x (tokuhirom) + - Fix usage of get_code_ref() in SYNOPSIS (thanks to @toku_bass) + - No feature changes. Just upgraded Module::Install. + +------------------------------------------------------------------- Old: ---- Data-Util-0.59.tar.gz New: ---- Data-Util-0.62.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Data-Util.spec ++++++ --- /var/tmp/diff_new_pack.dqnl2Y/_old 2013-06-05 17:50:59.000000000 +0200 +++ /var/tmp/diff_new_pack.dqnl2Y/_new 2013-06-05 17:50:59.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Data-Util # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -16,40 +16,48 @@ # - Name: perl-Data-Util -Version: 0.59 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 0.62 +Release: 0 %define cpan_name Data-Util Summary: A selection of utilities for data and data types -Url: http://search.cpan.org/dist/Data-Util/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl +Url: http://search.cpan.org/dist/Data-Util/ Source: http://www.cpan.org/authors/id/G/GF/GFUJI/%{cpan_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(Bar) -BuildRequires: perl(Class::Method::Modifiers) -BuildRequires: perl(Data::OptList) BuildRequires: perl(Devel::PPPort) >= 3.19 BuildRequires: perl(ExtUtils::ParseXS) >= 2.21 BuildRequires: perl(Hash::Util::FieldHash::Compat) -BuildRequires: perl(inc::Module::Install) -BuildRequires: perl(JSON) -BuildRequires: perl(Module::Build) -BuildRequires: perl(Moose) -BuildRequires: perl(mro) -BuildRequires: perl(MRO::Compat) -BuildRequires: perl(Params::Util) -BuildRequires: perl(parent) -BuildRequires: perl(Parse::CPAN::Meta) BuildRequires: perl(Scope::Guard) -BuildRequires: perl(Sub::Exporter) BuildRequires: perl(Test::Exception) >= 0.27 -BuildRequires: perl(XSLoader) >= 0.1 -BuildRequires: perl(YAML::Tiny) -Requires: perl(XSLoader) >= 0.1 +#BuildRequires: perl(Bar) +#BuildRequires: perl(Base) +#BuildRequires: perl(Class::Method::Modifiers) +#BuildRequires: perl(Common) +#BuildRequires: perl(Data::OptList) +#BuildRequires: perl(Data::Util) +#BuildRequires: perl(Data::Util::Error) +#BuildRequires: perl(feature) +#BuildRequires: perl(Foo) +#BuildRequires: perl(inc::Module::Install) >= 1.06 +#BuildRequires: perl(JSON) +#BuildRequires: perl(Method::Modifiers) +#BuildRequires: perl(Module::Build) +#BuildRequires: perl(Module::Install::Base) +#BuildRequires: perl(Module::Install::XSUtil) >= 0.41 +#BuildRequires: perl(Moose) +#BuildRequires: perl(mro) +#BuildRequires: perl(MRO::Compat) +#BuildRequires: perl(NSClean) +#BuildRequires: perl(Params::Util) +#BuildRequires: perl(parent) +#BuildRequires: perl(Parse::CPAN::Meta) +#BuildRequires: perl(Sub::Exporter) +#BuildRequires: perl(Sub::Exporter::Lexical) +#BuildRequires: perl(YAML::Tiny) %{perl_requires} %description @@ -77,9 +85,6 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files %defattr(-,root,root,755) %doc Changes example README ++++++ Data-Util-0.59.tar.gz -> Data-Util-0.62.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/Changes new/Data-Util-0.62/Changes --- old/Data-Util-0.59/Changes 2011-10-20 05:09:20.000000000 +0200 +++ new/Data-Util-0.62/Changes 2013-04-03 09:07:39.000000000 +0200 @@ -1,5 +1,14 @@ Revision history for Data-Util +0.62 2013-04-03 16:06:46 + - Fix a crash on perl 5.17.x (tokuhirom) + +0.61 2013-01-28 10:52:13 + - Fix usage of get_code_ref() in SYNOPSIS (thanks to @toku_bass) + +0.60 2012-10-20 20:54:58 + - No feature changes. Just upgraded Module::Install. + 0.59 2011-10-19 20:08:49 - Re-packaging with better dependencies and latest M::I diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/DataUtil.xs new/Data-Util-0.62/DataUtil.xs --- old/Data-Util-0.59/DataUtil.xs 2011-10-20 03:17:42.000000000 +0200 +++ new/Data-Util-0.62/DataUtil.xs 2013-04-03 09:06:08.000000000 +0200 @@ -1,3 +1,4 @@ +// vim: set noexpandtab: /* Data-Util/DataUtil.xs */ #define NEED_mro_get_linear_isa @@ -177,14 +178,21 @@ static bool my_has_amagic_converter(pTHX_ SV* const sv, const my_type_t t){ const AMT* amt; + const HV *stash; int o = 0; - if(!SvAMAGIC(sv)) return FALSE; - - amt = (AMT*)mg_find((SV*)SvSTASH(SvRV(sv)), PERL_MAGIC_overload_table)->mg_ptr; + if ( + (!SvAMAGIC(sv)) + || (!(stash = SvSTASH(SvRV(sv)))) + || (!Gv_AMG((HV*)stash)) + ) { + return FALSE; + } + amt = (AMT*)mg_find((SV*)stash, PERL_MAGIC_overload_table)->mg_ptr; assert(amt); assert(AMT_AMAGIC(amt)); + switch(t){ case T_SV: o = to_sv_amg; @@ -220,6 +228,7 @@ return SvRXOK(sv); } else{ + SvGETMAGIC(sv); return my_has_amagic_converter(aTHX_ sv, t); } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/META.yml new/Data-Util-0.62/META.yml --- old/Data-Util-0.59/META.yml 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/META.yml 2013-04-03 09:08:06.000000000 +0200 @@ -15,7 +15,7 @@ ExtUtils::ParseXS: 2.21 distribution_type: module dynamic_config: 1 -generated_by: 'Module::Install version 1.04' +generated_by: 'Module::Install version 1.06' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -34,4 +34,4 @@ resources: license: http://dev.perl.org/licenses/ repository: git://github.com/gfx/Perl-Data-Util.git -version: 0.59 +version: 0.62 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/Makefile.PL new/Data-Util-0.62/Makefile.PL --- old/Data-Util-0.59/Makefile.PL 2011-10-20 03:37:29.000000000 +0200 +++ new/Data-Util-0.62/Makefile.PL 2012-10-20 13:55:21.000000000 +0200 @@ -1,6 +1,6 @@ use strict; use warnings; -use inc::Module::Install 1.04; +use inc::Module::Install 1.06; use Module::Install::XSUtil 0.41; all_from 'lib/Data/Util.pm'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install/Base.pm new/Data-Util-0.62/inc/Module/Install/Base.pm --- old/Data-Util-0.59/inc/Module/Install/Base.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install/Base.pm 2013-04-03 09:08:06.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.04'; + $VERSION = '1.06'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install/Can.pm new/Data-Util-0.62/inc/Module/Install/Can.pm --- old/Data-Util-0.59/inc/Module/Install/Can.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install/Can.pm 2013-04-03 09:08:06.000000000 +0200 @@ -3,13 +3,12 @@ use strict; use Config (); -use File::Spec (); use ExtUtils::MakeMaker (); use Module::Install::Base (); use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.04'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -29,7 +28,7 @@ eval { require $mod; $pkg->VERSION($ver || 0); 1 }; } -# check if we can run some command +# Check if we can run some command sub can_run { my ($self, $cmd) = @_; @@ -38,14 +37,88 @@ for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') { next if $dir eq ''; - my $abs = File::Spec->catfile($dir, $_[1]); + require File::Spec; + my $abs = File::Spec->catfile($dir, $cmd); return $abs if (-x $abs or $abs = MM->maybe_command($abs)); } return; } -# can we locate a (the) C compiler +# Can our C compiler environment build XS files +sub can_xs { + my $self = shift; + + # Ensure we have the CBuilder module + $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 ); + + # Do we have the configure_requires checker? + local $@; + eval "require ExtUtils::CBuilder;"; + if ( $@ ) { + # They don't obey configure_requires, so it is + # someone old and delicate. Try to avoid hurting + # them by falling back to an older simpler test. + return $self->can_cc(); + } + + # Do we have a working C compiler + my $builder = ExtUtils::CBuilder->new( + quiet => 1, + ); + unless ( $builder->have_compiler ) { + # No working C compiler + return 0; + } + + # Write a C file representative of what XS becomes + require File::Temp; + my ( $FH, $tmpfile ) = File::Temp::tempfile( + "compilexs-XXXXX", + SUFFIX => '.c', + ); + binmode $FH; + print $FH <<'END_C'; +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" + +int main(int argc, char **argv) { + return 0; +} + +int boot_sanexs() { + return 1; +} + +END_C + close $FH; + + # Can the C compiler access the same headers XS does + my @libs = (); + my $object = undef; + eval { + local $^W = 0; + $object = $builder->compile( + source => $tmpfile, + ); + @libs = $builder->link( + objects => $object, + module_name => 'sanexs', + ); + }; + my $result = $@ ? 0 : 1; + + # Clean up all the build files + foreach ( $tmpfile, $object, @libs ) { + next unless defined $_; + 1 while unlink; + } + + return $result; +} + +# Can we locate a (the) C compiler sub can_cc { my $self = shift; my @chunks = split(/ /, $Config::Config{cc}) or return; @@ -78,4 +151,4 @@ __END__ -#line 156 +#line 236 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install/Makefile.pm new/Data-Util-0.62/inc/Module/Install/Makefile.pm --- old/Data-Util-0.59/inc/Module/Install/Makefile.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install/Makefile.pm 2013-04-03 09:08:06.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.04'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } @@ -215,13 +215,17 @@ require ExtUtils::MakeMaker; if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) { - # MakeMaker can complain about module versions that include - # an underscore, even though its own version may contain one! - # Hence the funny regexp to get rid of it. See RT #35800 - # for details. - my ($v) = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/; - $self->build_requires( 'ExtUtils::MakeMaker' => $v ); - $self->configure_requires( 'ExtUtils::MakeMaker' => $v ); + # This previous attempted to inherit the version of + # ExtUtils::MakeMaker in use by the module author, but this + # was found to be untenable as some authors build releases + # using future dev versions of EU:MM that nobody else has. + # Instead, #toolchain suggests we use 6.59 which is the most + # stable version on CPAN at time of writing and is, to quote + # ribasushi, "not terminally fucked, > and tested enough". + # TODO: We will now need to maintain this over time to push + # the version up as new versions are released. + $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 ); + $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 ); } else { # Allow legacy-compatibility with 5.005 by depending on the # most recent EU:MM that supported 5.005. @@ -411,4 +415,4 @@ __END__ -#line 540 +#line 544 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install/Metadata.pm new/Data-Util-0.62/inc/Module/Install/Metadata.pm --- old/Data-Util-0.59/inc/Module/Install/Metadata.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install/Metadata.pm 2013-04-03 09:08:06.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.04'; + $VERSION = '1.06'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install/WriteAll.pm new/Data-Util-0.62/inc/Module/Install/WriteAll.pm --- old/Data-Util-0.59/inc/Module/Install/WriteAll.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install/WriteAll.pm 2013-04-03 09:08:06.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.04'; + $VERSION = '1.06'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install/XSUtil.pm new/Data-Util-0.62/inc/Module/Install/XSUtil.pm --- old/Data-Util-0.59/inc/Module/Install/XSUtil.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install/XSUtil.pm 2013-04-03 09:08:06.000000000 +0200 @@ -3,7 +3,7 @@ use 5.005_03; -$VERSION = '0.42'; +$VERSION = '0.43'; use Module::Install::Base; @ISA = qw(Module::Install::Base); @@ -383,7 +383,7 @@ return; } -sub requires_xs{ +sub requires_xs_module { my $self = shift; return $self->requires() unless @_; @@ -802,4 +802,4 @@ 1; __END__ -#line 1025 +#line 1016 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/inc/Module/Install.pm new/Data-Util-0.62/inc/Module/Install.pm --- old/Data-Util-0.59/inc/Module/Install.pm 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/inc/Module/Install.pm 2013-04-03 09:08:05.000000000 +0200 @@ -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.04'; + $VERSION = '1.06'; # Storage for the pseudo-singleton $MAIN = undef; @@ -467,4 +467,4 @@ 1; -# Copyright 2008 - 2011 Adam Kennedy. +# Copyright 2008 - 2012 Adam Kennedy. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/lib/Data/Util/JA.pod new/Data-Util-0.62/lib/Data/Util/JA.pod --- old/Data-Util-0.59/lib/Data/Util/JA.pod 2011-10-20 19:56:40.000000000 +0200 +++ new/Data-Util-0.62/lib/Data/Util/JA.pod 2013-04-03 09:07:47.000000000 +0200 @@ -7,7 +7,7 @@ =head1 VERSION -This document describes Data::Util version 0.59 +This document describes Data::Util version 0.62 =for test_synopsis no warnings 'redefine'; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/lib/Data/Util.pm new/Data-Util-0.62/lib/Data/Util.pm --- old/Data-Util-0.59/lib/Data/Util.pm 2011-10-20 19:56:40.000000000 +0200 +++ new/Data-Util-0.62/lib/Data/Util.pm 2013-04-03 09:07:47.000000000 +0200 @@ -4,7 +4,7 @@ use strict; #use warnings; -our $VERSION = '0.59'; +our $VERSION = '0.62'; use Exporter; our @ISA = qw(Exporter); @@ -79,7 +79,7 @@ =head1 VERSION -This document describes Data::Util version 0.59 +This document describes Data::Util version 0.62 =head1 SYNOPSIS @@ -128,10 +128,11 @@ my($pkg, $name) = get_code_info(\&Foo::hello); # => ('Foo', 'hello') my $fqn = get_code_info(\&Foo::hello); # => 'Foo::hello' - my $code = get_code_ref('Foo::hello'); # => \&Foo::hello + my $code = get_code_ref('Foo', 'hello'); # => \&Foo::hello uninstall_subroutine('Foo', qw(hello goodby)); + # simple format for errro messages (not the same as Data::Dumper) print neat("Hello!\n"); # => "Hello!\n" print neat(3.14); # => 3.14 print neat(undef); # => undef @@ -338,7 +339,7 @@ ); # accepts a HASH reference - install_subroutine($pkg, { say => sub{ print @_, "\n" }); # + install_subroutine($pkg, { say => sub{ print @_, "\n" }); # To re-install I<subr>, use C<< no warnings 'redefine' >> directive: @@ -352,7 +353,7 @@ It is similar to C<Sub::Delete::delete_sub()>, but uninstall multiple subroutines at a time. -If you want to specify deleted subroutines, you can supply +If you want to specify deleted subroutines, you can supply C<< name => \&subr >> pairs. For example: @@ -410,7 +411,7 @@ C<< after => [subroutine(s)] >> called after I<subr>. This seems a constructor of modified subroutines and -C<subroutine_modifier()> is property accessors, but it does not bless the +C<subroutine_modifier()> is property accessors, but it does not bless the modified subroutines. =item subroutine_modifier(subr) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Data-Util-0.59/xshelper.h new/Data-Util-0.62/xshelper.h --- old/Data-Util-0.59/xshelper.h 2011-10-20 19:56:56.000000000 +0200 +++ new/Data-Util-0.62/xshelper.h 2013-04-03 09:08:06.000000000 +0200 @@ -1,4 +1,4 @@ -/* THIS FILE IS AUTOMATICALLY GENERATED BY Module::Install::XSUtil 0.42. */ +/* THIS FILE IS AUTOMATICALLY GENERATED BY Module::Install::XSUtil 0.43. */ /* =head1 NAME -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
