Hello community,
here is the log from the commit of package perl-Data-Util for openSUSE:Factory
checked in at 2011-11-21 12:37:59
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Data-Util (Old)
and /work/SRC/openSUSE:Factory/.perl-Data-Util.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Data-Util", Maintainer is ""
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Data-Util/perl-Data-Util.changes
2011-09-23 12:36:44.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Data-Util.new/perl-Data-Util.changes
2011-11-21 12:38:35.000000000 +0100
@@ -1,0 +2,6 @@
+Fri Nov 18 18:25:01 UTC 2011 - co...@suse.com
+
+- update to 0.59
+ * Re-packaging with better dependencies and latest M::I
+
+-------------------------------------------------------------------
Old:
----
Data-Util-0.58.tar.gz
New:
----
Data-Util-0.59.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Data-Util.spec ++++++
--- /var/tmp/diff_new_pack.zYQJUt/_old 2011-11-21 12:38:37.000000000 +0100
+++ /var/tmp/diff_new_pack.zYQJUt/_new 2011-11-21 12:38:37.000000000 +0100
@@ -18,7 +18,7 @@
Name: perl-Data-Util
-Version: 0.58
+Version: 0.59
Release: 1
License: GPL+ or Artistic
%define cpan_name Data-Util
++++++ Data-Util-0.58.tar.gz -> Data-Util-0.59.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/.gitignore
new/Data-Util-0.59/.gitignore
--- old/Data-Util-0.58/.gitignore 2010-09-13 12:39:56.000000000 +0200
+++ new/Data-Util-0.59/.gitignore 2011-10-20 19:56:11.000000000 +0200
@@ -8,6 +8,7 @@
!Makefile.PL
*blib
META.yml
+MYMETA.*
inc/
MANIFEST
DataUtil.c
@@ -15,3 +16,4 @@
ppport.h
xshelper.h
*.stackdump
+*~
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/Changes new/Data-Util-0.59/Changes
--- old/Data-Util-0.58/Changes 2010-09-13 12:41:09.000000000 +0200
+++ new/Data-Util-0.59/Changes 2011-10-20 05:09:20.000000000 +0200
@@ -1,5 +1,8 @@
Revision history for Data-Util
+0.59 2011-10-19 20:08:49
+ - Re-packaging with better dependencies and latest M::I
+
0.58 Mon Sep 13 19:40:34 2010
- Use GvCV_set() for newer perls
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/DataUtil.xs
new/Data-Util-0.59/DataUtil.xs
--- old/Data-Util-0.58/DataUtil.xs 2010-09-13 12:38:04.000000000 +0200
+++ new/Data-Util-0.59/DataUtil.xs 2011-10-20 03:17:42.000000000 +0200
@@ -804,14 +804,14 @@
is_invocant = 0
invocant = 1
PREINIT:
- int result;
+ bool result;
CODE:
SvGETMAGIC(x);
if(SvROK(x)){
- result = (int)SvOBJECT(SvRV(x));
+ result = SvOBJECT(SvRV(x)) ? TRUE : FALSE;
}
else if(is_string(x)){
- result = (int)gv_stashsv(x, FALSE);
+ result = gv_stashsv(x, FALSE) ? TRUE : FALSE;
}
else{
result = FALSE;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/MANIFEST.SKIP
new/Data-Util-0.59/MANIFEST.SKIP
--- old/Data-Util-0.58/MANIFEST.SKIP 2010-08-01 10:22:44.000000000 +0200
+++ new/Data-Util-0.59/MANIFEST.SKIP 2011-10-20 03:19:35.000000000 +0200
@@ -1,12 +1,18 @@
-
-#!start included /usr/local/lib/perl5/5.10.0/ExtUtils/MANIFEST.SKIP
+#!start included
/Users/fuji.goro/perl5/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0/ExtUtils/MANIFEST.SKIP
# Avoid version control files.
\bRCS\b
\bCVS\b
\bSCCS\b
,v$
\B\.svn\b
+\B\.git\b
\b_darcs\b
+\B\.cvsignore$
+
+# Avoid VMS specific MakeMaker generated files
+\bDescrip.MMS$
+\bDESCRIP.MMS$
+\bdescrip.mms$
# Avoid Makemaker generated and utility files.
\bMANIFEST\.bak
@@ -20,6 +26,10 @@
# Avoid Module::Build generated and utility files.
\bBuild$
\b_build/
+\bBuild.bat$
+\bBuild.COM$
+\bBUILD.COM$
+\bbuild.com$
# Avoid temp and backup files.
~$
@@ -27,10 +37,23 @@
\#$
\b\.#
\.bak$
+\.tmp$
+\.#
+\.rej$
+
+# Avoid OS-specific files/dirs
+# Mac OSX metadata
+\B\.DS_Store
+# Mac OSX SMB mount metadata files
+\B\._
-# Avoid Devel::Cover files.
+# Avoid Devel::Cover and Devel::CoverX::Covered files.
\bcover_db\b
-#!end included /usr/local/lib/perl5/5.10.0/ExtUtils/MANIFEST.SKIP
+\bcovered\b
+
+# Avoid MYMETA files
+^MYMETA\.
+#!end included
/Users/fuji.goro/perl5/perlbrew/perls/perl-5.14.0/lib/site_perl/5.14.0/ExtUtils/MANIFEST.SKIP
\bauthor\b
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/META.yml new/Data-Util-0.59/META.yml
--- old/Data-Util-0.58/META.yml 2010-09-13 12:42:23.000000000 +0200
+++ new/Data-Util-0.59/META.yml 2011-10-20 19:56:56.000000000 +0200
@@ -4,17 +4,18 @@
- 'Goro Fuji(gfx) <gfuji(at)cpan.org>.'
build_requires:
Devel::PPPort: 3.19
- ExtUtils::MakeMaker: 6.42
- ExtUtils::ParseXS: 2.21
+ ExtUtils::MakeMaker: 6.59
Hash::Util::FieldHash::Compat: 0
Scope::Guard: 0
Test::Exception: 0.27
Test::More: 0.62
configure_requires:
Devel::PPPort: 3.19
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.59
+ ExtUtils::ParseXS: 2.21
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+dynamic_config: 1
+generated_by: 'Module::Install version 1.04'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,9 +29,9 @@
- t
- xt
requires:
- XSLoader: 0.1
+ XSLoader: 0.02
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/gfx/Perl-Data-Util.git
-version: 0.58
+version: 0.59
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/Makefile.PL
new/Data-Util-0.59/Makefile.PL
--- old/Data-Util-0.58/Makefile.PL 2010-09-13 12:37:09.000000000 +0200
+++ new/Data-Util-0.59/Makefile.PL 2011-10-20 03:37:29.000000000 +0200
@@ -1,7 +1,7 @@
use strict;
use warnings;
-use inc::Module::Install;
-use Module::Install::XSUtil 0.32;
+use inc::Module::Install 1.04;
+use Module::Install::XSUtil 0.41;
all_from 'lib/Data/Util.pm';
@@ -9,8 +9,8 @@
test_requires 'Test::More' => 0.62;
test_requires 'Test::Exception' => 0.27;
-
test_requires 'Scope::Guard';
+test_requires 'Hash::Util::FieldHash::Compat';
author_tests 'xt', 'author/t';
@@ -18,7 +18,6 @@
use_xshelper;
cc_warnings;
cc_define '-DINLINE_STR_EQ';
- test_requires 'Hash::Util::FieldHash::Compat';
}
else{
requires 'Hash::Util::FieldHash::Compat';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/inc/Module/Install/Base.pm
new/Data-Util-0.59/inc/Module/Install/Base.pm
--- old/Data-Util-0.58/inc/Module/Install/Base.pm 2010-09-13
12:42:22.000000000 +0200
+++ new/Data-Util-0.59/inc/Module/Install/Base.pm 2011-10-20
19:56:56.000000000 +0200
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.04';
}
# Suspend handler for "redefined" warnings
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/inc/Module/Install/Can.pm
new/Data-Util-0.59/inc/Module/Install/Can.pm
--- old/Data-Util-0.58/inc/Module/Install/Can.pm 2010-09-13
12:42:22.000000000 +0200
+++ new/Data-Util-0.59/inc/Module/Install/Can.pm 2011-10-20
19:56:56.000000000 +0200
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/inc/Module/Install/Makefile.pm
new/Data-Util-0.59/inc/Module/Install/Makefile.pm
--- old/Data-Util-0.58/inc/Module/Install/Makefile.pm 2010-09-13
12:42:22.000000000 +0200
+++ new/Data-Util-0.59/inc/Module/Install/Makefile.pm 2011-10-20
19:56:56.000000000 +0200
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -219,14 +219,14 @@
# 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+)/;
+ my ($v) = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
$self->build_requires( 'ExtUtils::MakeMaker' => $v );
$self->configure_requires( 'ExtUtils::MakeMaker' => $v );
} else {
# Allow legacy-compatibility with 5.005 by depending on the
# most recent EU:MM that supported 5.005.
- $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
- $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 );
}
# Generate the MakeMaker params
@@ -241,7 +241,6 @@
'all_from' if you prefer) in Makefile.PL.
EOT
- $DB::single = 1;
if ( $self->tests ) {
my @tests = split ' ', $self->tests;
my %seen;
@@ -412,4 +411,4 @@
__END__
-#line 541
+#line 540
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/inc/Module/Install/Metadata.pm
new/Data-Util-0.59/inc/Module/Install/Metadata.pm
--- old/Data-Util-0.58/inc/Module/Install/Metadata.pm 2010-09-13
12:42:22.000000000 +0200
+++ new/Data-Util-0.59/inc/Module/Install/Metadata.pm 2011-10-20
19:56:56.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -151,15 +151,21 @@
sub install_as_vendor { $_[0]->installdirs('vendor') }
sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to
dynamic_config\n";
- return $self;
+ my $self = shift;
+ my $value = @_ ? shift : 1;
+ if ( $self->{values}->{dynamic_config} ) {
+ # Once dynamic we never change to static, for safety
+ return 0;
}
- $self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
+ $self->{values}->{dynamic_config} = $value ? 1 : 0;
return 1;
}
+# Convenience command
+sub static_config {
+ shift->dynamic_config(0);
+}
+
sub perl_version {
my $self = shift;
return $self->{values}->{perl_version} unless @_;
@@ -170,7 +176,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 +521,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 +557,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 +588,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/Data-Util-0.58/inc/Module/Install/WriteAll.pm
new/Data-Util-0.59/inc/Module/Install/WriteAll.pm
--- old/Data-Util-0.58/inc/Module/Install/WriteAll.pm 2010-09-13
12:42:22.000000000 +0200
+++ new/Data-Util-0.59/inc/Module/Install/WriteAll.pm 2011-10-20
19:56:56.000000000 +0200
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.04';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/inc/Module/Install/XSUtil.pm
new/Data-Util-0.59/inc/Module/Install/XSUtil.pm
--- old/Data-Util-0.58/inc/Module/Install/XSUtil.pm 2010-09-13
12:42:22.000000000 +0200
+++ new/Data-Util-0.59/inc/Module/Install/XSUtil.pm 2011-10-20
19:56:56.000000000 +0200
@@ -3,7 +3,7 @@
use 5.005_03;
-$VERSION = '0.32';
+$VERSION = '0.42';
use Module::Install::Base;
@ISA = qw(Module::Install::Base);
@@ -18,19 +18,21 @@
use constant _VERBOSE => $ENV{MI_VERBOSE} ? 1 : 0;
my %ConfigureRequires = (
- # currently nothing
+ 'ExtUtils::ParseXS' => 2.21,
);
my %BuildRequires = (
- 'ExtUtils::ParseXS' => 2.21, # the newer, the better
);
my %Requires = (
- 'XSLoader' => 0.10, # the newer, the better
+ 'XSLoader' => 0.02,
);
my %ToInstall;
+my $UseC99 = 0;
+my $UseCplusplus = 0;
+
sub _verbose{
print STDERR q{# }, @_, "\n";
}
@@ -64,7 +66,7 @@
$self->makemaker_args->{OPTIMIZE} = '-Zi';
}
else{
- $self->makemaker_args->{OPTIMIZE} = '-g';
+ $self->makemaker_args->{OPTIMIZE} = '-g -ggdb -g3';
}
$self->cc_define('-DXS_ASSERT');
}
@@ -94,9 +96,13 @@
my $want_xs;
sub want_xs {
- my $default = @_ ? shift : 1; # you're using this module, you /must/
want XS by default
+ my($self, $default) = @_;
return $want_xs if defined $want_xs;
+ # you're using this module, you must want XS by default
+ # unless PERL_ONLY is true.
+ $default = !$ENV{PERL_ONLY} if not defined $default;
+
foreach my $arg(@ARGV){
if($arg eq '--pp'){
return $want_xs = 0;
@@ -180,10 +186,14 @@
my $gccversion = _gccversion();
if($gccversion >= 4.0){
- # Note: MSVC++ doesn't support C99, so
-Wdeclaration-after-statement helps
- # ensure C89 specs.
- $self->cc_append_to_ccflags(qw(-Wextra
-Wdeclaration-after-statement));
- if($gccversion >= 4.1) {
+ $self->cc_append_to_ccflags(qw(-Wextra));
+ if(!($UseC99 or $UseCplusplus)) {
+ # Note: MSVC++ doesn't support C99,
+ # so -Wdeclaration-after-statement helps
+ # ensure C89 specs.
+ $self->cc_append_to_ccflags(qw(-Wdeclaration-after-statement));
+ }
+ if($gccversion >= 4.1 && !$UseCplusplus) {
$self->cc_append_to_ccflags(qw(-Wc++-compat));
}
}
@@ -212,6 +222,8 @@
my $tmpfile = File::Temp->new(SUFFIX => '.c');
$tmpfile->print(<<'C99');
+// include a C99 header
+#include <stdbool.h>
inline // a C99 keyword with C99 style comments
int test_c99() {
int i = 0;
@@ -223,7 +235,7 @@
$tmpfile->close();
- system $Config{cc}, '-c', $tmpfile->filename;
+ system "$Config{cc} -c " . $tmpfile->filename;
(my $objname = File::Basename::basename($tmpfile->filename)) =~
s/\Q.c\E$/$Config{_o}/;
unlink $objname or warn "Cannot unlink $objname (ignored): $!";
@@ -238,7 +250,18 @@
exit;
}
$self->_xs_initialize();
+ $UseC99 = 1;
+ return;
+}
+sub requires_cplusplus {
+ my($self) = @_;
+ if(!$self->cc_available) {
+ warn "This distribution requires a C++ compiler, but $Config{cc} seems
not to support C++, stopped.\n";
+ exit;
+ }
+ $self->_xs_initialize();
+ $UseCplusplus = 1;
return;
}
@@ -312,7 +335,7 @@
if ( ! $self->{xsu_loaded_checklib} ) {
my $loaded_lib = 0;
- foreach my $checklib qw(inc::Devel::CheckLib Devel::CheckLib) {
+ foreach my $checklib (qw(inc::Devel::CheckLib Devel::CheckLib)) {
eval "use $checklib 0.4";
if (!$@) {
$loaded_lib = 1;
@@ -435,9 +458,10 @@
}
}, @dirs);
+ my $xs_to = $UseCplusplus ? '.cpp' : '.c';
foreach my $src_file(@src_files){
my $c = $src_file;
- if($c =~ s/ \.xs \z/.c/xms){
+ if($c =~ s/ \.xs \z/$xs_to/xms){
$XS_ref->{$src_file} = $c;
_verbose "xs: $src_file" if _VERBOSE;
@@ -548,10 +572,14 @@
$cppflags .= ' ' . $mm->{DEFINE} if $mm->{DEFINE};
my $add_include = _is_msvc() ? '-FI' : '-include';
- $cppflags .= ' ' . join ' ', map{ qq{$add_include "$_"} }
qw(EXTERN.h perl.h XSUB.h);
+ $cppflags .= ' ' . join ' ',
+ map{ qq{$add_include "$_"} } qw(EXTERN.h perl.h XSUB.h);
my $cppcmd = qq{$Config{cpprun} $cppflags $h_file};
-
+ # remove all the -arch options to workaround gcc errors:
+ # "-E, -S, -save-temps and -M options are not allowed
+ # with multiple -arch flags"
+ $cppcmd =~ s/ -arch \s* \S+ //xmsg;
_verbose("extract functions from: $cppcmd") if _VERBOSE;
`$cppcmd`;
};
@@ -653,7 +681,6 @@
:
:#define PERL_NO_GET_CONTEXT /* we want efficiency */
:#include <EXTERN.h>
-:
:#include <perl.h>
:#define NO_XSLOCKS /* for exceptions */
:#include <XSUB.h>
@@ -679,8 +706,8 @@
:#endif
:
:#ifndef LIKELY /* they are just a compiler's hint */
-:#define LIKELY(x) (x)
-:#define UNLIKELY(x) (x)
+:#define LIKELY(x) (!!(x))
+:#define UNLIKELY(x) (!!(x))
:#endif
:
:#ifndef newSVpvs_share
@@ -710,8 +737,10 @@
:#define LooksLikeNumber(x) (SvPOKp(x) ? looks_like_number(x) :
(I32)SvNIOKp(x))
:#endif
:
-:#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
-:#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
+:#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
+:#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
+:#define newRV_inc_mortal(sv) sv_2mortal(newRV_inc(sv))
+:#define newRV_noinc_mortal(sv) sv_2mortal(newRV_noinc(sv))
:
:#define DECL_BOOT(name) EXTERN_C XS(CAT2(boot_, name))
:#define CALL_BOOT(name) STMT_START { \
@@ -728,7 +757,7 @@
MY;
# XXX: We must append to PM inside ExtUtils::MakeMaker->new().
-sub init_PM{
+sub init_PM {
my $self = shift;
$self->SUPER::init_PM(@_);
@@ -755,7 +784,22 @@
return $cccmd
}
+
+sub xs_c {
+ my($self) = @_;
+ my $mm = $self->SUPER::xs_c();
+ $mm =~ s/ \.c /.cpp/xmsg if $UseCplusplus;
+ return $mm;
+}
+
+sub xs_o {
+ my($self) = @_;
+ my $mm = $self->SUPER::xs_o();
+ $mm =~ s/ \.c /.cpp/xmsg if $UseCplusplus;
+ return $mm;
+}
+
1;
__END__
-#line 969
+#line 1025
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/inc/Module/Install.pm
new/Data-Util-0.59/inc/Module/Install.pm
--- old/Data-Util-0.58/inc/Module/Install.pm 2010-09-13 12:42:22.000000000
+0200
+++ new/Data-Util-0.59/inc/Module/Install.pm 2011-10-20 19:56:56.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.00';
+ $VERSION = '1.04';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -451,7 +451,7 @@
}
sub _cmp ($$) {
- _version($_[0]) <=> _version($_[1]);
+ _version($_[1]) <=> _version($_[2]);
}
# Cloned from Params::Util::_CLASS
@@ -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/Data-Util-0.58/lib/Data/Util/JA.pod
new/Data-Util-0.59/lib/Data/Util/JA.pod
--- old/Data-Util-0.58/lib/Data/Util/JA.pod 2010-09-13 12:41:38.000000000
+0200
+++ new/Data-Util-0.59/lib/Data/Util/JA.pod 2011-10-20 19:56:40.000000000
+0200
@@ -7,7 +7,7 @@
=head1 VERSION
-This document describes Data::Util version 0.58
+This document describes Data::Util version 0.59
=for test_synopsis no warnings 'redefine';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/lib/Data/Util.pm
new/Data-Util-0.59/lib/Data/Util.pm
--- old/Data-Util-0.58/lib/Data/Util.pm 2010-09-13 12:41:38.000000000 +0200
+++ new/Data-Util-0.59/lib/Data/Util.pm 2011-10-20 19:56:40.000000000 +0200
@@ -4,7 +4,7 @@
use strict;
#use warnings;
-our $VERSION = '0.58';
+our $VERSION = '0.59';
use Exporter;
our @ISA = qw(Exporter);
@@ -79,7 +79,7 @@
=head1 VERSION
-This document describes Data::Util version 0.58
+This document describes Data::Util version 0.59
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Data-Util-0.58/xshelper.h
new/Data-Util-0.59/xshelper.h
--- old/Data-Util-0.58/xshelper.h 2010-09-13 12:42:22.000000000 +0200
+++ new/Data-Util-0.59/xshelper.h 2011-10-20 19:56:56.000000000 +0200
@@ -1,4 +1,4 @@
-/* THIS FILE IS AUTOMATICALLY GENERATED BY Module::Install::XSUtil 0.32. */
+/* THIS FILE IS AUTOMATICALLY GENERATED BY Module::Install::XSUtil 0.42. */
/*
=head1 NAME
@@ -33,7 +33,6 @@
#define PERL_NO_GET_CONTEXT /* we want efficiency */
#include <EXTERN.h>
-
#include <perl.h>
#define NO_XSLOCKS /* for exceptions */
#include <XSUB.h>
@@ -59,8 +58,8 @@
#endif
#ifndef LIKELY /* they are just a compiler's hint */
-#define LIKELY(x) (x)
-#define UNLIKELY(x) (x)
+#define LIKELY(x) (!!(x))
+#define UNLIKELY(x) (!!(x))
#endif
#ifndef newSVpvs_share
@@ -90,8 +89,10 @@
#define LooksLikeNumber(x) (SvPOKp(x) ? looks_like_number(x) : (I32)SvNIOKp(x))
#endif
-#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
-#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
+#define newAV_mortal() (AV*)sv_2mortal((SV*)newAV())
+#define newHV_mortal() (HV*)sv_2mortal((SV*)newHV())
+#define newRV_inc_mortal(sv) sv_2mortal(newRV_inc(sv))
+#define newRV_noinc_mortal(sv) sv_2mortal(newRV_noinc(sv))
#define DECL_BOOT(name) EXTERN_C XS(CAT2(boot_, name))
#define CALL_BOOT(name) STMT_START { \
--
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org
