r74650 - in /trunk/libmouse-perl: ./ debian/ inc/Module/ inc/Module/Install/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ t/020_attributes/ xs-src/
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Tue May 17 16:04:14 UTC 2011
Author: ghedo-guest
Date: Tue May 17 16:03:30 2011
New Revision: 74650
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74650
Log:
* New upstream release
* Add myself to Uploaders
* Bump Standards-Version to 3.9.2 (no changes needed)
Added:
trunk/libmouse-perl/t/020_attributes/036_clone_weak.t
- copied unchanged from r74649, branches/upstream/libmouse-perl/current/t/020_attributes/036_clone_weak.t
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/MANIFEST
trunk/libmouse-perl/MANIFEST.SKIP
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/debian/changelog
trunk/libmouse-perl/debian/control
trunk/libmouse-perl/inc/Module/Install.pm
trunk/libmouse-perl/inc/Module/Install/Base.pm
trunk/libmouse-perl/inc/Module/Install/Can.pm
trunk/libmouse-perl/inc/Module/Install/Include.pm
trunk/libmouse-perl/inc/Module/Install/Makefile.pm
trunk/libmouse-perl/inc/Module/Install/Metadata.pm
trunk/libmouse-perl/inc/Module/Install/TestTarget.pm
trunk/libmouse-perl/inc/Module/Install/WriteAll.pm
trunk/libmouse-perl/inc/Module/Install/XSUtil.pm
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/Application.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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Tue May 17 16:03:30 2011
@@ -1,6 +1,10 @@
Revision history for Mouse
-0.92
+0.93 2011-05-17 00:22:12
+ [BUG FIXES]
+ * Make sure weak attributes remain weak when cloning (Moose 2.0007)
+
+0.92 2011-4-14 23:37
[BUG FIXES]
* Replace C++-style comments (//) with C89-style comments(/* */)
(RT #67412)
Modified: trunk/libmouse-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/MANIFEST?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/MANIFEST (original)
+++ trunk/libmouse-perl/MANIFEST Tue May 17 16:03:30 2011
@@ -216,6 +216,7 @@
t/020_attributes/032_delegation_arg_aliasing.t
t/020_attributes/034_numeric_defaults.t
t/020_attributes/035_default_undef.t
+t/020_attributes/036_clone_weak.t
t/030_roles/001_meta_role.t
t/030_roles/002_role.t
t/030_roles/003_apply_role.t
Modified: trunk/libmouse-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/MANIFEST.SKIP?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/MANIFEST.SKIP (original)
+++ trunk/libmouse-perl/MANIFEST.SKIP Tue May 17 16:03:30 2011
@@ -61,4 +61,4 @@
MYMETA\.yml$
Moose-t/
xshelper\.h$
-
+\.swp$
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Tue May 17 16:03:30 2011
@@ -11,7 +11,7 @@
Devel::PPPort: 3.19
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -26,9 +26,9 @@
- xt
requires:
Scalar::Util: 1.14
- XSLoader: 0.1
+ XSLoader: 0.02
perl: 5.6.2
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/Mouse.git
-version: 0.92
+version: 0.93
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Tue May 17 16:03:30 2011
@@ -1,3 +1,11 @@
+libmouse-perl (0.93-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders
+ * Bump Standards-Version to 3.9.2 (no changes needed)
+
+ -- Alessandro Ghedini <al3xbio at gmail.com> Tue, 17 May 2011 17:57:09 +0200
+
libmouse-perl (0.92-1) UNRELEASED; urgency=low
IGNORE-VERSION: 0.92-1
Modified: trunk/libmouse-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/control?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/control (original)
+++ trunk/libmouse-perl/debian/control Tue May 17 16:03:30 2011
@@ -20,8 +20,9 @@
Jose Luis Rivas <ghostbar at debian.org>, Brian Cassidy <brian.cassidy at gmail.com>,
Rene Mayorga <rmayorga at debian.org>, Antonio Radici <antonio at dyne.org>,
Ryan Niebur <ryan at debian.org>, Nathan Handler <nhandler at ubuntu.com>,
- Jonathan Yu <jawnsy at cpan.org>, Ansgar Burchardt <ansgar at debian.org>
-Standards-Version: 3.9.1
+ Jonathan Yu <jawnsy at cpan.org>, Ansgar Burchardt <ansgar at debian.org>,
+ Alessandro Ghedini <al3xbio at gmail.com>
+Standards-Version: 3.9.2
Homepage: http://search.cpan.org/dist/Mouse/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libmouse-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libmouse-perl/
Modified: trunk/libmouse-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install.pm Tue May 17 16:03:30 2011
@@ -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.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -156,10 +156,10 @@
sub autoload {
my $self = shift;
my $who = $self->_caller;
- my $cwd = Cwd::getcwd();
+ my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
- my $pwd = Cwd::getcwd();
+ my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
@@ -239,7 +239,7 @@
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
- unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) {
+ unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
delete $args{prefix};
}
return $args{_self} if $args{_self};
@@ -338,7 +338,7 @@
if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
my $content = Module::Install::_read($subpath . '.pm');
my $in_pod = 0;
- foreach ( split /\n/, $content ) {
+ foreach ( split //, $content ) {
$in_pod = 1 if /^=\w/;
$in_pod = 0 if /^=cut/;
next if ($in_pod || /^=cut/); # skip pod text
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: trunk/libmouse-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/Base.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/Base.pm Tue May 17 16:03:30 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: trunk/libmouse-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/Can.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/Can.pm Tue May 17 16:03:30 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libmouse-perl/inc/Module/Install/Include.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/Include.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/Include.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/Include.pm Tue May 17 16:03:30 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libmouse-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/Makefile.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/Makefile.pm Tue May 17 16:03:30 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: trunk/libmouse-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/Metadata.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/Metadata.pm Tue May 17 16:03:30 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,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 +551,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}=();
Modified: trunk/libmouse-perl/inc/Module/Install/TestTarget.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/TestTarget.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/TestTarget.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/TestTarget.pm Tue May 17 16:03:30 2011
@@ -3,7 +3,7 @@
use 5.006_002;
use strict;
#use warnings; # XXX: warnings.pm produces a lot of 'redefine' warnings!
-our $VERSION = '0.18';
+our $VERSION = '0.15';
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} =~ /dmake/i) {
+ if ($Config{make} eq 'dmake') {
$code =~ s/{/{{/g;
$code =~ s/}/}}/g;
}
Modified: trunk/libmouse-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/WriteAll.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/WriteAll.pm Tue May 17 16:03:30 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libmouse-perl/inc/Module/Install/XSUtil.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/inc/Module/Install/XSUtil.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/XSUtil.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/XSUtil.pm Tue May 17 16:03:30 2011
@@ -3,7 +3,7 @@
use 5.005_03;
-$VERSION = '0.36';
+$VERSION = '0.37';
use Module::Install::Base;
@ISA = qw(Module::Install::Base);
@@ -26,7 +26,7 @@
);
my %Requires = (
- 'XSLoader' => 0.10, # the newer, the better
+ 'XSLoader' => 0.02,
);
my %ToInstall;
@@ -67,7 +67,7 @@
$self->makemaker_args->{OPTIMIZE} = '-Zi';
}
else{
- $self->makemaker_args->{OPTIMIZE} = '-g';
+ $self->makemaker_args->{OPTIMIZE} = '-g -ggdb -g3';
}
$self->cc_define('-DXS_ASSERT');
}
@@ -97,8 +97,12 @@
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'){
@@ -769,4 +773,4 @@
1;
__END__
-#line 980
+#line 984
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Tue May 17 16:03:30 2011
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.92';
+our $VERSION = '0.93';
use Carp ();
use Scalar::Util ();
@@ -155,7 +155,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Exporter.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Exporter.pm Tue May 17 16:03:30 2011
@@ -267,7 +267,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm Tue May 17 16:03:30 2011
@@ -349,7 +349,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=head1 DESCRIPTION
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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Class.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Class.pm Tue May 17 16:03:30 2011
@@ -470,7 +470,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=head1 DESCRIPTION
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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method.pm Tue May 17 16:03:30 2011
@@ -54,7 +54,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=head1 DESCRIPTION
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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm Tue May 17 16:03:30 2011
@@ -187,7 +187,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm Tue May 17 16:03:30 2011
@@ -87,10 +87,6 @@
$post_process .= "\$checks[$index]->($instance_slot)\n";
$post_process .= " or $attr_var->_throw_type_constraint_error($instance_slot, $constraint_var);\n";
}
- if($is_weak_ref){
- $post_process = "Scalar::Util::weaken($instance_slot) "
- . "if ref $instance_slot;\n";
- }
# build cde for an attribute
if (defined $init_arg) {
@@ -150,6 +146,11 @@
}
$code .= "}\n" if defined $init_arg;
+
+ if($is_weak_ref){
+ $code .= "Scalar::Util::weaken($instance_slot) "
+ . "if ref $instance_slot;\n";
+ }
push @res, $code;
}
@@ -232,7 +233,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm Tue May 17 16:03:30 2011
@@ -61,7 +61,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm Tue May 17 16:03:30 2011
@@ -65,7 +65,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Module.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Module.pm Tue May 17 16:03:30 2011
@@ -311,7 +311,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=head1 DESCRIPTION
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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role.pm Tue May 17 16:03:30 2011
@@ -131,7 +131,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/lib/Mouse/Meta/Role/Application.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Meta/Role/Application.pm?rev=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Application.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Application.pm Tue May 17 16:03:30 2011
@@ -209,7 +209,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm Tue May 17 16:03:30 2011
@@ -156,7 +156,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm Tue May 17 16:03:30 2011
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm Tue May 17 16:03:30 2011
@@ -276,7 +276,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Object.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Object.pm Tue May 17 16:03:30 2011
@@ -16,7 +16,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/PurePerl.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/PurePerl.pm Tue May 17 16:03:30 2011
@@ -749,7 +749,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Role.pm Tue May 17 16:03:30 2011
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.92';
+our $VERSION = '0.93';
use Carp ();
use Scalar::Util ();
@@ -137,7 +137,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Spec.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Spec.pm Tue May 17 16:03:30 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.92';
+our $VERSION = '0.93';
our $MouseVersion = $VERSION;
our $MooseVersion = '1.13';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Tiny.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/Tiny.pod Tue May 17 16:03:30 2011
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util.pm Tue May 17 16:03:30 2011
@@ -50,7 +50,7 @@
},
);
- our $VERSION = '0.92';
+ our $VERSION = '0.93';
my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
@@ -388,7 +388,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=head1 SYNOPSIS
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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm Tue May 17 16:03:30 2011
@@ -432,7 +432,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/XS.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/XS.pod Tue May 17 16:03:30 2011
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.92
+This document describes Mouse version 0.93
=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=74650&op=diff
==============================================================================
--- trunk/libmouse-perl/xs-src/Mouse.xs (original)
+++ trunk/libmouse-perl/xs-src/Mouse.xs Tue May 17 16:03:30 2011
@@ -315,7 +315,7 @@
value = mouse_xa_apply_type_constraint(aTHX_ xa, value, flags);
}
value = set_slot(object, slot, value);
- if(SvROK(value) && flags & MOUSEf_ATTR_IS_WEAK_REF){
+ if(flags & MOUSEf_ATTR_IS_WEAK_REF && SvROK(value)){
weaken_slot(object, slot);
}
if(flags & MOUSEf_ATTR_HAS_TRIGGER){
@@ -337,8 +337,16 @@
mouse_xa_set_default(aTHX_ xa, object);
}
}
- /* don't check while cloning (or reblesseing) */
- else if(!is_cloning && flags & MOUSEf_ATTR_IS_REQUIRED) {
+ else if(is_cloning) {
+ if(flags & MOUSEf_ATTR_IS_WEAK_REF){
+ SV* const value = get_slot(object, slot);
+ if(SvROK(value)) {
+ weaken_slot(object, slot);
+ }
+ }
+ }
+ /* don't check "required" while cloning (or reblesseing) */
+ else if(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