Hello community, here is the log from the commit of package perl-Mouse for openSUSE:Factory checked in at 2011-11-21 12:43:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Mouse (Old) and /work/SRC/openSUSE:Factory/.perl-Mouse.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Mouse", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Mouse/perl-Mouse.changes 2011-09-23 12:38:12.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Mouse.new/perl-Mouse.changes 2011-11-21 12:43:42.000000000 +0100 @@ -1,0 +2,10 @@ +Thu Nov 17 12:29:49 UTC 2011 - [email protected] + +- update to 0.97: + - Fixes in 0.96 is broken + - Workaround for RT#71211 (made the failing test a TODO) + * Resolve RT#68351, tests produced deprecation warnings in 5.14 + * Resolve RT#70518, a build problem in 5.15 + * Resolve RT#70569, prototype mismatch warnings might happen in 5.8 + +------------------------------------------------------------------- Old: ---- Mouse-0.93.tar.gz New: ---- Mouse-0.97.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Mouse.spec ++++++ --- /var/tmp/diff_new_pack.7tRYHO/_old 2011-11-21 12:43:44.000000000 +0100 +++ /var/tmp/diff_new_pack.7tRYHO/_new 2011-11-21 12:43:44.000000000 +0100 @@ -18,7 +18,7 @@ Name: perl-Mouse -Version: 0.93 +Version: 0.97 Release: 1 Summary: Moose minus the antlers Source: http://search.cpan.org/CPAN/authors/id/G/GF/GFUJI/Mouse-%{version}.tar.gz @@ -101,4 +101,5 @@ %doc %{perl_man3dir}/Squirrel::*.%{perl_man3ext}%{ext_man} %doc %{perl_man3dir}/Test::Mouse.%{perl_man3ext}%{ext_man} %doc %{perl_man3dir}/ouse.%{perl_man3ext}%{ext_man} + %changelog ++++++ Mouse-0.93.tar.gz -> Mouse-0.97.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/Changes new/Mouse-0.97/Changes --- old/Mouse-0.93/Changes 2011-05-16 17:22:48.000000000 +0200 +++ new/Mouse-0.97/Changes 2011-10-09 23:45:57.000000000 +0200 @@ -1,5 +1,23 @@ Revision history for Mouse +0.97 2011-10-09 14:45:55 + [TEST FIXES] + - Fixes in 0.96 is broken + +0.96 2011-10-09 14:34:39 + [TEST FIXES] + - Workaround for RT #71211 (made the failing test a TODO) + +0.95 2011-10-07 13:41:31 + [TEST FIXES] + - Workaround for RT #71211 (maybe) + +0.94 2011-10-03 17:07:57 + [BUG FIXES] + * Resolve #68351, tests produced deprecation warnings in 5.14 + * Resolve #70518, a build problem in 5.15 + * Resolve #70569, prototype mismatch warnings might happen in 5.8 + 0.93 2011-05-17 00:22:12 [BUG FIXES] * Make sure weak attributes remain weak when cloning (Moose 2.0007) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/MANIFEST.SKIP new/Mouse-0.97/MANIFEST.SKIP --- old/Mouse-0.93/MANIFEST.SKIP 2011-05-16 17:23:14.000000000 +0200 +++ new/Mouse-0.97/MANIFEST.SKIP 2011-10-04 02:08:28.000000000 +0200 @@ -58,7 +58,7 @@ \.c$ \.bs$ -MYMETA\.yml$ +MYMETA\.(?:yml|json)$ Moose-t/ xshelper\.h$ \.swp$ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/META.yml new/Mouse-0.97/META.yml --- old/Mouse-0.93/META.yml 2011-05-16 17:25:42.000000000 +0200 +++ new/Mouse-0.97/META.yml 2011-10-09 23:46:30.000000000 +0200 @@ -5,13 +5,13 @@ build_requires: Devel::PPPort: 3.19 ExtUtils::MakeMaker: 6.42 - ExtUtils::ParseXS: 2.21 Test::More: 0.88 configure_requires: Devel::PPPort: 3.19 ExtUtils::MakeMaker: 6.42 + ExtUtils::ParseXS: 2.21 distribution_type: module -generated_by: 'Module::Install version 1.01' +generated_by: 'Module::Install version 1.02' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -31,4 +31,4 @@ resources: license: http://dev.perl.org/licenses/ repository: git://git.moose.perl.org/Mouse.git -version: 0.93 +version: 0.97 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/Base.pm new/Mouse-0.97/inc/Module/Install/Base.pm --- old/Mouse-0.93/inc/Module/Install/Base.pm 2011-05-16 17:25:39.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/Base.pm 2011-10-09 23:46:29.000000000 +0200 @@ -4,7 +4,7 @@ use strict 'vars'; use vars qw{$VERSION}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.02'; } # Suspend handler for "redefined" warnings diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/Can.pm new/Mouse-0.97/inc/Module/Install/Can.pm --- old/Mouse-0.93/inc/Module/Install/Can.pm 2011-05-16 17:25:39.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/Can.pm 2011-10-09 23:46:29.000000000 +0200 @@ -9,7 +9,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/Include.pm new/Mouse-0.97/inc/Module/Install/Include.pm --- old/Mouse-0.93/inc/Module/Install/Include.pm 2011-05-16 17:25:39.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/Include.pm 2011-10-09 23:46:29.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/Makefile.pm new/Mouse-0.97/inc/Module/Install/Makefile.pm --- old/Mouse-0.93/inc/Module/Install/Makefile.pm 2011-05-16 17:25:39.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/Makefile.pm 2011-10-09 23:46:29.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.02'; @ISA = 'Module::Install::Base'; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/Metadata.pm new/Mouse-0.97/inc/Module/Install/Metadata.pm --- old/Mouse-0.93/inc/Module/Install/Metadata.pm 2011-05-16 17:25:39.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/Metadata.pm 2011-10-09 23:46:29.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $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"; } @@ -582,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/Mouse-0.93/inc/Module/Install/TestTarget.pm new/Mouse-0.97/inc/Module/Install/TestTarget.pm --- old/Mouse-0.93/inc/Module/Install/TestTarget.pm 2011-05-16 17:25:40.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/TestTarget.pm 2011-10-09 23:46:30.000000000 +0200 @@ -3,7 +3,7 @@ use 5.006_002; use strict; #use warnings; # XXX: warnings.pm produces a lot of 'redefine' warnings! -our $VERSION = '0.15'; +our $VERSION = '0.19'; use base qw(Module::Install::Base); use Config; @@ -108,7 +108,7 @@ $code =~ s/\n/ /g; if ($^O eq 'MSWin32') { $code =~ s/\\\$\$/\$\$/g; - if ($Config{make} eq 'dmake') { + if ($Config{make} =~ /dmake/i) { $code =~ s/{/{{/g; $code =~ s/}/}}/g; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/WriteAll.pm new/Mouse-0.97/inc/Module/Install/WriteAll.pm --- old/Mouse-0.93/inc/Module/Install/WriteAll.pm 2011-05-16 17:25:40.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/WriteAll.pm 2011-10-09 23:46:30.000000000 +0200 @@ -6,7 +6,7 @@ use vars qw{$VERSION @ISA $ISCORE}; BEGIN { - $VERSION = '1.01'; + $VERSION = '1.02'; @ISA = qw{Module::Install::Base}; $ISCORE = 1; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install/XSUtil.pm new/Mouse-0.97/inc/Module/Install/XSUtil.pm --- old/Mouse-0.93/inc/Module/Install/XSUtil.pm 2011-05-16 17:25:39.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install/XSUtil.pm 2011-10-09 23:46:29.000000000 +0200 @@ -3,7 +3,7 @@ use 5.005_03; -$VERSION = '0.37'; +$VERSION = '0.41'; use Module::Install::Base; @ISA = qw(Module::Install::Base); @@ -18,11 +18,10 @@ 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 = ( @@ -255,6 +254,17 @@ 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; +} + sub cc_append_to_inc{ my($self, @dirs) = @_; @@ -448,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; @@ -472,6 +483,8 @@ return; } +sub cc_inc_paths { goto &cc_include_paths } + sub cc_include_paths{ my($self, @dirs) = @_; @@ -565,7 +578,10 @@ 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`; }; @@ -743,7 +759,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(@_); @@ -770,7 +786,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 984 +#line 1023 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/inc/Module/Install.pm new/Mouse-0.97/inc/Module/Install.pm --- old/Mouse-0.93/inc/Module/Install.pm 2011-05-16 17:25:38.000000000 +0200 +++ new/Mouse-0.97/inc/Module/Install.pm 2011-10-09 23:46:29.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.01'; + $VERSION = '1.02'; # Storage for the pseudo-singleton $MAIN = undef; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Exporter.pm new/Mouse-0.97/lib/Mouse/Exporter.pm --- old/Mouse-0.93/lib/Mouse/Exporter.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Exporter.pm 2011-10-09 23:46:03.000000000 +0200 @@ -267,7 +267,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Attribute.pm new/Mouse-0.97/lib/Mouse/Meta/Attribute.pm --- old/Mouse-0.93/lib/Mouse/Meta/Attribute.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Attribute.pm 2011-10-09 23:46:03.000000000 +0200 @@ -349,7 +349,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Class.pm new/Mouse-0.97/lib/Mouse/Meta/Class.pm --- old/Mouse-0.93/lib/Mouse/Meta/Class.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Class.pm 2011-10-09 23:46:03.000000000 +0200 @@ -470,7 +470,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Method/Accessor.pm new/Mouse-0.97/lib/Mouse/Meta/Method/Accessor.pm --- old/Mouse-0.93/lib/Mouse/Meta/Method/Accessor.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Method/Accessor.pm 2011-10-09 23:46:03.000000000 +0200 @@ -187,7 +187,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Method/Constructor.pm new/Mouse-0.97/lib/Mouse/Meta/Method/Constructor.pm --- old/Mouse-0.93/lib/Mouse/Meta/Method/Constructor.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Method/Constructor.pm 2011-10-09 23:46:03.000000000 +0200 @@ -233,7 +233,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Method/Delegation.pm new/Mouse-0.97/lib/Mouse/Meta/Method/Delegation.pm --- old/Mouse-0.93/lib/Mouse/Meta/Method/Delegation.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Method/Delegation.pm 2011-10-09 23:46:03.000000000 +0200 @@ -61,7 +61,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Method/Destructor.pm new/Mouse-0.97/lib/Mouse/Meta/Method/Destructor.pm --- old/Mouse-0.93/lib/Mouse/Meta/Method/Destructor.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Method/Destructor.pm 2011-10-09 23:46:03.000000000 +0200 @@ -65,7 +65,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Method.pm new/Mouse-0.97/lib/Mouse/Meta/Method.pm --- old/Mouse-0.93/lib/Mouse/Meta/Method.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Method.pm 2011-10-09 23:46:03.000000000 +0200 @@ -54,7 +54,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Module.pm new/Mouse-0.97/lib/Mouse/Meta/Module.pm --- old/Mouse-0.93/lib/Mouse/Meta/Module.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Module.pm 2011-10-09 23:46:03.000000000 +0200 @@ -311,7 +311,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Role/Application.pm new/Mouse-0.97/lib/Mouse/Meta/Role/Application.pm --- old/Mouse-0.93/lib/Mouse/Meta/Role/Application.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Role/Application.pm 2011-10-09 23:46:03.000000000 +0200 @@ -209,7 +209,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Role/Composite.pm new/Mouse-0.97/lib/Mouse/Meta/Role/Composite.pm --- old/Mouse-0.93/lib/Mouse/Meta/Role/Composite.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Role/Composite.pm 2011-10-09 23:46:03.000000000 +0200 @@ -156,7 +156,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Role/Method.pm new/Mouse-0.97/lib/Mouse/Meta/Role/Method.pm --- old/Mouse-0.93/lib/Mouse/Meta/Role/Method.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Role/Method.pm 2011-10-09 23:46:03.000000000 +0200 @@ -23,7 +23,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/Role.pm new/Mouse-0.97/lib/Mouse/Meta/Role.pm --- old/Mouse-0.93/lib/Mouse/Meta/Role.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/Role.pm 2011-10-09 23:46:03.000000000 +0200 @@ -131,7 +131,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Meta/TypeConstraint.pm new/Mouse-0.97/lib/Mouse/Meta/TypeConstraint.pm --- old/Mouse-0.93/lib/Mouse/Meta/TypeConstraint.pm 2011-05-16 17:23:53.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Meta/TypeConstraint.pm 2011-10-09 23:46:03.000000000 +0200 @@ -276,7 +276,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Object.pm new/Mouse-0.97/lib/Mouse/Object.pm --- old/Mouse-0.93/lib/Mouse/Object.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Object.pm 2011-10-09 23:46:03.000000000 +0200 @@ -16,7 +16,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 METHODS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/PurePerl.pm new/Mouse-0.97/lib/Mouse/PurePerl.pm --- old/Mouse-0.93/lib/Mouse/PurePerl.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/PurePerl.pm 2011-10-09 23:46:03.000000000 +0200 @@ -749,7 +749,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SEE ALSO diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Role.pm new/Mouse-0.97/lib/Mouse/Role.pm --- old/Mouse-0.93/lib/Mouse/Role.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Role.pm 2011-10-09 23:46:03.000000000 +0200 @@ -1,7 +1,7 @@ package Mouse::Role; use Mouse::Exporter; # enables strict and warnings -our $VERSION = '0.93'; +our $VERSION = '0.97'; use Carp (); use Scalar::Util (); @@ -137,7 +137,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Spec.pm new/Mouse-0.97/lib/Mouse/Spec.pm --- old/Mouse-0.93/lib/Mouse/Spec.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Spec.pm 2011-10-09 23:46:03.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; -our $VERSION = '0.93'; +our $VERSION = '0.97'; our $MouseVersion = $VERSION; our $MooseVersion = '1.13'; @@ -19,7 +19,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Tiny.pod new/Mouse-0.97/lib/Mouse/Tiny.pod --- old/Mouse-0.93/lib/Mouse/Tiny.pod 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Tiny.pod 2011-10-09 23:46:03.000000000 +0200 @@ -5,7 +5,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Util/TypeConstraints.pm new/Mouse-0.97/lib/Mouse/Util/TypeConstraints.pm --- old/Mouse-0.93/lib/Mouse/Util/TypeConstraints.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Util/TypeConstraints.pm 2011-10-09 23:46:03.000000000 +0200 @@ -432,7 +432,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head2 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/Util.pm new/Mouse-0.97/lib/Mouse/Util.pm --- old/Mouse-0.93/lib/Mouse/Util.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/Util.pm 2011-10-09 23:46:03.000000000 +0200 @@ -50,7 +50,7 @@ }, ); - our $VERSION = '0.93'; + our $VERSION = '0.97'; my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY}); @@ -80,7 +80,8 @@ # definition of mro::get_linear_isa() my $get_linear_isa; - if (eval { require mro }) { + if ($] >= 5.010_000) { + require mro; $get_linear_isa = \&mro::get_linear_isa; } else { @@ -388,7 +389,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse/XS.pod new/Mouse-0.97/lib/Mouse/XS.pod --- old/Mouse-0.93/lib/Mouse/XS.pod 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse/XS.pod 2011-10-09 23:46:03.000000000 +0200 @@ -5,7 +5,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/lib/Mouse.pm new/Mouse-0.97/lib/Mouse.pm --- old/Mouse-0.93/lib/Mouse.pm 2011-05-16 17:23:52.000000000 +0200 +++ new/Mouse-0.97/lib/Mouse.pm 2011-10-09 23:46:03.000000000 +0200 @@ -3,7 +3,7 @@ use Mouse::Exporter; # enables strict and warnings -our $VERSION = '0.93'; +our $VERSION = '0.97'; use Carp (); use Scalar::Util (); @@ -155,7 +155,7 @@ =head1 VERSION -This document describes Mouse version 0.93 +This document describes Mouse version 0.97 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/mouse.h new/Mouse-0.97/mouse.h --- old/Mouse-0.93/mouse.h 2011-02-21 02:14:34.000000000 +0100 +++ new/Mouse-0.97/mouse.h 2011-10-04 01:46:10.000000000 +0200 @@ -1,6 +1,8 @@ #ifndef MOUSE_H #define MOUSE_H +#define PERL_EUPXS_ALWAYS_EXPORT + #include "xshelper.h" #ifndef mro_get_linear_isa diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/t/000-load.t new/Mouse-0.97/t/000-load.t --- old/Mouse-0.93/t/000-load.t 2010-11-10 04:53:43.000000000 +0100 +++ new/Mouse-0.97/t/000-load.t 2011-10-04 01:50:25.000000000 +0200 @@ -19,14 +19,3 @@ diag " Class::MOP: $Class::MOP::VERSION"; diag " Moose: $Moose::VERSION"; -if($xs) { # display info for CPAN testers - if(open my $in, '<', 'Makefile') { - diag 'xsubpp settings:'; - while(<$in>) { - if(/^XSUBPP/) { - diag $_; - } - } - } -} - diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/t/001_mouse/043-parameterized-type.t new/Mouse-0.97/t/001_mouse/043-parameterized-type.t --- old/Mouse-0.93/t/001_mouse/043-parameterized-type.t 2010-11-13 15:05:44.000000000 +0100 +++ new/Mouse-0.97/t/001_mouse/043-parameterized-type.t 2011-10-09 23:44:51.000000000 +0200 @@ -4,8 +4,10 @@ use Test::More; use Test::Exception; +use Config; use Tie::Hash; use Tie::Array; + { { package My::Role; @@ -224,7 +226,10 @@ is_deeply \%th_clone, \%th, 'the hash iterator is initialized'; -{ + +for my $i(1 .. 2) { + diag "derived from parameterized types #$i"; + my $myhashref = subtype 'MyHashRef', as 'HashRef[Value]', where { keys %$_ > 1 }; @@ -241,9 +246,24 @@ ok $myhashref->is_a_type_of('HashRef'), "$myhashref"; ok $myhashref->check({ a => 43, b => 100 }); - ok !$myhashref->check({ a => 43, b => 3.14 }); - ok !$myhashref->check({}); + ok $myhashref->check({ a => 43, b => 100, c => 0 }); + ok !$myhashref->check({}), 'empty hash'; + ok !$myhashref->check({ foo => 42 }); + { + local $TODO = 'See https://rt.cpan.org/Ticket/Display.html?id=71211' + if $Config{archname} =~ /\A ia64 /xmsi; + + ok !$myhashref->check({ a => 43, b => "foo" }) or eval { + require Data::Dump::Streamer; + my $s = Data::Dump::Streamer::Dump($myhashref)->Out(); + $s =~ s/[ ]{4}/ /g; + diag $s; + }; + } ok !$myhashref->check({ a => 42, b => [] }); + ok !$myhashref->check({ a => 42, b => undef }); + ok !$myhashref->check([42]); + ok !$myhashref->check("foo"); is $myhashref->type_parameter, 'Int'; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/t/010_basics/015_buildargs.t new/Mouse-0.97/t/010_basics/015_buildargs.t --- old/Mouse-0.93/t/010_basics/015_buildargs.t 2010-09-25 04:50:55.000000000 +0200 +++ new/Mouse-0.97/t/010_basics/015_buildargs.t 2011-10-04 01:08:31.000000000 +0200 @@ -24,7 +24,7 @@ extends qw(Foo); } -foreach my $class qw(Foo Bar) { +foreach my $class (qw(Foo Bar)) { is( $class->new->bar, undef, "no args" ); is( $class->new( bar => 42 )->bar, 42, "normal args" ); is( $class->new( 37 )->bar, 37, "single arg" ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Mouse-0.93/t/300_immutable/009_buildargs.t new/Mouse-0.97/t/300_immutable/009_buildargs.t --- old/Mouse-0.93/t/300_immutable/009_buildargs.t 2010-09-25 06:41:46.000000000 +0200 +++ new/Mouse-0.97/t/300_immutable/009_buildargs.t 2011-10-04 01:08:31.000000000 +0200 @@ -31,7 +31,7 @@ __PACKAGE__->meta->make_immutable; } -foreach my $class qw(Foo Bar) { +foreach my $class (qw(Foo Bar)) { is( $class->new->bar, undef, "no args" ); is( $class->new( bar => 42 )->bar, 42, "normal args" ); is( $class->new( 37 )->bar, 37, "single arg" ); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
