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 - coolo@suse.com
+
+- 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 CSub::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