r57111 - in /trunk/libmouse-perl: ./ debian/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ t/900_bug/ t/900_mouse_bugs/ xs-src/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Apr 29 11:41:42 UTC 2010
Author: ansgar-guest
Date: Thu Apr 29 11:41:36 2010
New Revision: 57111
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57111
Log:
New upstream release.
Added:
trunk/libmouse-perl/t/900_mouse_bugs/
- copied from r57109, branches/upstream/libmouse-perl/current/t/900_mouse_bugs/
Removed:
trunk/libmouse-perl/t/900_bug/
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/MANIFEST
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/debian/changelog
trunk/libmouse-perl/lib/Mouse.pm
trunk/libmouse-perl/lib/Mouse/Exporter.pm
trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm
trunk/libmouse-perl/lib/Mouse/Meta/Class.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm
trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm
trunk/libmouse-perl/lib/Mouse/Meta/Module.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm
trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm
trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm
trunk/libmouse-perl/lib/Mouse/Object.pm
trunk/libmouse-perl/lib/Mouse/PurePerl.pm
trunk/libmouse-perl/lib/Mouse/Role.pm
trunk/libmouse-perl/lib/Mouse/Spec.pm
trunk/libmouse-perl/lib/Mouse/Tiny.pod
trunk/libmouse-perl/lib/Mouse/Util.pm
trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm
trunk/libmouse-perl/lib/Mouse/XS.pod
trunk/libmouse-perl/xs-src/Mouse.xs
Modified: trunk/libmouse-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Changes?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Thu Apr 29 11:41:36 2010
@@ -1,7 +1,12 @@
Revision history for Mouse
+0.56 Thu Apr 29 11:15:45 2010
+ [BUG FIX]
+ * Resolve RT#56837: Role application to instance with init_arg'd
+ attributes caused problems (Sanko Robinson)
+
0.55 Wed Apr 21 13:27:13 2010
- [BUF FIX]
+ [BUG FIX]
* Fix a bug that traits could cause panic/SEGV on threads (gfx)
0.54 Sat Apr 17 17:15:54 2010
Modified: trunk/libmouse-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/MANIFEST?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/MANIFEST (original)
+++ trunk/libmouse-perl/MANIFEST Thu Apr 29 11:41:36 2010
@@ -281,13 +281,14 @@
t/810_with_moose/202-squirrel-role.t
t/810_with_moose/500_moose_extends_mouse.t
t/810_with_moose/501_moose_coerce_mouse.t
-t/900_bug/001_immutable_types.t
-t/900_bug/002_does_role_should_search_parent.t
-t/900_bug/003_RT50421.t
-t/900_bug/004_RT54203.t
-t/900_bug/005_large_int.t
-t/900_bug/006_RT69939.t
-t/900_bug/007_RT56523.t
+t/900_mouse_bugs/001_immutable_types.t
+t/900_mouse_bugs/002_does_role_should_search_parent.t
+t/900_mouse_bugs/003_RT50421.t
+t/900_mouse_bugs/004_RT54203.t
+t/900_mouse_bugs/005_large_int.t
+t/900_mouse_bugs/006_RT69939.t
+t/900_mouse_bugs/007_RT56523.t
+t/900_mouse_bugs/008_RT56837.t
t/990_deprecated/001-export_to_level.t
t/990_deprecated/044-attribute-metaclass.t
t/990_deprecated/047-attribute-metaclass-role.t
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Thu Apr 29 11:41:36 2010
@@ -32,4 +32,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/Mouse.git
-version: 0.55
+version: 0.56
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Thu Apr 29 11:41:36 2010
@@ -1,3 +1,9 @@
+libmouse-perl (0.56-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Thu, 29 Apr 2010 20:36:15 +0900
+
libmouse-perl (0.55-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Thu Apr 29 11:41:36 2010
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.55';
+our $VERSION = '0.56';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -160,7 +160,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Exporter.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Exporter.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Exporter.pm Thu Apr 29 11:41:36 2010
@@ -272,7 +272,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm Thu Apr 29 11:41:36 2010
@@ -401,7 +401,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 METHODS
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Class.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Class.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Class.pm Thu Apr 29 11:41:36 2010
@@ -486,7 +486,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 METHODS
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method.pm Thu Apr 29 11:41:36 2010
@@ -54,7 +54,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm Thu Apr 29 11:41:36 2010
@@ -182,7 +182,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm Thu Apr 29 11:41:36 2010
@@ -235,7 +235,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm Thu Apr 29 11:41:36 2010
@@ -61,7 +61,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm Thu Apr 29 11:41:36 2010
@@ -55,7 +55,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Module.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Module.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Module.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Module.pm Thu Apr 29 11:41:36 2010
@@ -329,7 +329,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role.pm Thu Apr 29 11:41:36 2010
@@ -238,7 +238,7 @@
if(defined $instance){ # Application::ToInstance
# rebless instance
bless $instance, $consumer->name;
- $consumer->_initialize_object($instance, $instance);
+ $consumer->_initialize_object($instance, $instance, 1);
}
return;
@@ -312,7 +312,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm Thu Apr 29 11:41:36 2010
@@ -125,7 +125,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm Thu Apr 29 11:41:36 2010
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm Thu Apr 29 11:41:36 2010
@@ -236,7 +236,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/lib/Mouse/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Object.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Object.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Object.pm Thu Apr 29 11:41:36 2010
@@ -17,7 +17,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 METHODS
Modified: trunk/libmouse-perl/lib/Mouse/PurePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/PurePerl.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/PurePerl.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/PurePerl.pm Thu Apr 29 11:41:36 2010
@@ -298,9 +298,9 @@
push @triggers_queue, [ $attribute->trigger, $object->{$slot} ];
}
}
- elsif(!$is_cloning) { # no init arg, noop while cloning
+ else { # no init arg
if ($attribute->has_default || $attribute->has_builder) {
- if (!$attribute->is_lazy) {
+ if (!$attribute->is_lazy && !exists $object->{$slot}) {
my $default = $attribute->default;
my $builder = $attribute->builder;
my $value = $builder ? $object->$builder()
@@ -313,7 +313,7 @@
if ref($object->{$slot}) && $attribute->is_weak_ref;
}
}
- elsif($attribute->is_required) {
+ elsif(!$is_cloning && $attribute->is_required) {
$self->throw_error("Attribute (".$attribute->name.") is required");
}
}
@@ -720,7 +720,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SEE ALSO
Modified: trunk/libmouse-perl/lib/Mouse/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Role.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Role.pm Thu Apr 29 11:41:36 2010
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.55';
+our $VERSION = '0.56';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -145,7 +145,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Spec.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Spec.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Spec.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Spec.pm Thu Apr 29 11:41:36 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.55';
+our $VERSION = '0.56';
our $MouseVersion = $VERSION;
our $MooseVersion = '0.93';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/Tiny.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Tiny.pod?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Tiny.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/Tiny.pod Thu Apr 29 11:41:36 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/lib/Mouse/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Util.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util.pm Thu Apr 29 11:41:36 2010
@@ -52,7 +52,7 @@
# Because Mouse::Util is loaded first in all the Mouse sub-modules,
# XS loader is placed here, not in Mouse.pm.
- our $VERSION = '0.55';
+ our $VERSION = '0.56';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
@@ -365,7 +365,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 IMPLEMENTATIONS FOR
Modified: trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm Thu Apr 29 11:41:36 2010
@@ -406,7 +406,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head2 SYNOPSIS
Modified: trunk/libmouse-perl/lib/Mouse/XS.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/XS.pod?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/XS.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/XS.pod Thu Apr 29 11:41:36 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.55
+This document describes Mouse version 0.56
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/xs-src/Mouse.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/xs-src/Mouse.xs?rev=57111&op=diff
==============================================================================
--- trunk/libmouse-perl/xs-src/Mouse.xs (original)
+++ trunk/libmouse-perl/xs-src/Mouse.xs Thu Apr 29 11:41:36 2010
@@ -338,13 +338,15 @@
}
used++;
}
- else if(!is_cloning){ /* no init arg, noop while cloning */
+ else { /* no init arg */
if(flags & (MOUSEf_ATTR_HAS_DEFAULT | MOUSEf_ATTR_HAS_BUILDER)){
- if(!(flags & MOUSEf_ATTR_IS_LAZY)){
+ /* skip if the object has the slot (it occurs on cloning/reblessing) */
+ if(!(flags & MOUSEf_ATTR_IS_LAZY) && !has_slot(object, slot)){
mouse_xa_set_default(aTHX_ xa, object);
}
}
- else if(flags & MOUSEf_ATTR_IS_REQUIRED) {
+ /* don't check while cloning (or reblesseing) */
+ else if(!is_cloning && flags & MOUSEf_ATTR_IS_REQUIRED) {
mouse_throw_error(attr, NULL, "Attribute (%"SVf") is required", slot);
}
}
More information about the Pkg-perl-cvs-commits
mailing list