r51972 - in /trunk/libmouse-perl: ./ debian/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ t/001_mouse/ t/010_basics/ xs-src/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Feb 1 00:15:48 UTC 2010
Author: jawnsy-guest
Date: Mon Feb 1 00:15:33 2010
New Revision: 51972
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51972
Log:
integrate new upstream version
Added:
trunk/libmouse-perl/t/001_mouse/066-magic.t
- copied unchanged from r51971, branches/upstream/libmouse-perl/current/t/001_mouse/066-magic.t
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/MANIFEST
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/Makefile.PL
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/t/010_basics/009_import_unimport.t
trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs
Modified: trunk/libmouse-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Changes?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Mon Feb 1 00:15:33 2010
@@ -1,9 +1,13 @@
Revision history for Mouse
+
+0.48 Sun Jan 31 17:53:31 2010
+ * TypeConstraints.xs
+ - Fix magic handling in type constraints (gfx)
0.47 Fri Jan 15 15:07:21 2010
* Makefile.PL
- Shipped with M::I::XSUtil 0.21 (gfx)
- - Fixed an issue that gcc 4.0 don't support -Wc++-compat (gfx)
+ - Fix an issue that gcc 4.0 don't support -Wc++-compat (gfx)
* Mouse
- Add a caveat on XS callbacks to the pod (gfx)
Modified: trunk/libmouse-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/MANIFEST?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/MANIFEST (original)
+++ trunk/libmouse-perl/MANIFEST Mon Feb 1 00:15:33 2010
@@ -131,6 +131,7 @@
t/001_mouse/063-meta-of-metaclasses.t
t/001_mouse/064-class-c3.t
t/001_mouse/065-attr-mop.t
+t/001_mouse/066-magic.t
t/001_mouse/100-meta-class.t
t/001_mouse/101-meta-attribute.t
t/001_mouse/301-bugs-non-mouse.t
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Mon Feb 1 00:15:33 2010
@@ -30,4 +30,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/Mouse.git
-version: 0.47
+version: 0.48
Modified: trunk/libmouse-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Makefile.PL?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/Makefile.PL (original)
+++ trunk/libmouse-perl/Makefile.PL Mon Feb 1 00:15:33 2010
@@ -67,6 +67,8 @@
tests 't/*.t t/*/*.t';
+author_tests 'xt';
+
repository 'git://git.moose.perl.org/Mouse.git';
@@ -80,7 +82,15 @@
print "You have Moose ", Moose->VERSION, ".\n";
if (eval { require Module::Install::AuthorTests }) {
do 'tool/create-moose-compatibility-tests.pl';
- recursive_author_tests('xt');
+ # repeat testing
+ # see also ExtUtils::MM_Any::test_via_harness()
+ my $t_moose = q{$(FULLPERLRUN) -MExtUtils::Command::MM -e}
+ .q{ "test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')"}
+ .q{ xt/compatibility/t/*/*.t } . "\n";
+
+ postamble qq{test_dynamic :: test_moose\n\n}
+ . qq{test_moose :: pure_all\n}
+ . qq{\t} . $t_moose;
} else {
print "You don't have a M::I::AuthorTests.\n";
}
@@ -91,14 +101,15 @@
if($use_xs){
# repeat testing
# see also ExtUtils::MM_Any::test_via_harness()
- my $test_via_harness = q{$(FULLPERLRUN) -MExtUtils::Command::MM -e}
- .q{ "do 'tool/force-pp.pl'; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')"}
- .q{ $(TEST_FILES)} . "\n";
+ my $t_pp = q{$(FULLPERLRUN) -MExtUtils::Command::MM -e}
+ .q{ "do 'tool/force-pp.pl'; test_harness($(TEST_VERBOSE), '$(INST_LIB)', '$(INST_ARCHLIB)')"}
+ .q{ $(TEST_FILES)} . "\n";
postamble qq{test_dynamic :: test_pp\n\n}
. qq{test_pp :: pure_all\n}
- . qq{\t} . $test_via_harness;
+ . qq{\t} . $t_pp;
}
}
+
WriteAll check_nmake => 0;
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Mon Feb 1 00:15:33 2010
@@ -1,11 +1,8 @@
-libmouse-perl (0.47-1) UNRELEASED; urgency=low
-
- Adds a caveat to the POD
- IGNORE-VERSION: 0.47-1
-
- * New upstream release
-
- -- Jonathan Yu <jawnsy at cpan.org> Sun, 17 Jan 2010 13:17:02 -0500
+libmouse-perl (0.48-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 31 Jan 2010 19:25:47 -0500
libmouse-perl (0.46-1) unstable; urgency=low
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Mon Feb 1 00:15:33 2010
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.47';
+our $VERSION = '0.48';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -166,7 +166,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Exporter.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Exporter.pm Mon Feb 1 00:15:33 2010
@@ -171,7 +171,7 @@
if($spec->{INIT_META}){
my $meta;
foreach my $init_meta(@{$spec->{INIT_META}}){
- $meta = $into->$init_meta(for_class => $into);
+ $meta = $package->$init_meta(for_class => $into);
}
if(@traits){
@@ -260,7 +260,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm Mon Feb 1 00:15:33 2010
@@ -10,23 +10,22 @@
my $class = shift;
my $name = shift;
- my %args = (@_ == 1) ? %{ $_[0] } : @_;
-
+ my $args = $class->Mouse::Object::BUILDARGS(@_);
# XXX: for backward compatibility (with method modifiers)
if($class->can('canonicalize_args') != \&canonicalize_args){
- %args = $class->canonicalize_args($name, %args);
- }
-
- $class->_process_options($name, \%args);
-
- $args{name} = $name;
-
- my $self = bless \%args, $class;
+ %{$args} = $class->canonicalize_args($name, %{$args});
+ }
+
+ $class->_process_options($name, $args);
+
+ $args->{name} = $name;
+
+ my $self = bless $args, $class;
# extra attributes
if($class ne __PACKAGE__){
- $class->meta->_initialize_object($self, \%args);
+ $class->meta->_initialize_object($self, $args);
}
# XXX: there is no fast way to check attribute validity
@@ -136,18 +135,19 @@
}
sub clone_and_inherit_options{
- my($self, %args) = @_;
-
- my($attribute_class, @traits) = ref($self)->interpolate_class(\%args);
-
- $args{traits} = \@traits if @traits;
+ my $self = shift;
+ my $args = $self->Mouse::Object::BUILDARGS(@_);
+
+ my($attribute_class, @traits) = ref($self)->interpolate_class($args);
+
+ $args->{traits} = \@traits if @traits;
# do not inherit the 'handles' attribute
foreach my $name(keys %{$self}){
- if(!exists $args{$name} && $name ne 'handles'){
- $args{$name} = $self->{$name};
+ if(!exists $args->{$name} && $name ne 'handles'){
+ $args->{$name} = $self->{$name};
}
}
- return $attribute_class->new($self->name, %args);
+ return $attribute_class->new($self->name, $args);
}
sub clone_parent { # DEPRECATED
@@ -334,7 +334,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Class.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Class.pm Mon Feb 1 00:15:33 2010
@@ -207,13 +207,13 @@
sub clone_object {
my $class = shift;
my $object = shift;
- my %params = (@_ == 1) ? %{$_[0]} : @_;
+ my $args = $object->Mouse::Object::BUILDARGS(@_);
(blessed($object) && $object->isa($class->name))
|| $class->throw_error("You must pass an instance of the metaclass (" . $class->name . "), not ($object)");
my $cloned = bless { %$object }, ref $object;
- $class->_initialize_object($cloned, \%params);
+ $class->_initialize_object($cloned, $args);
return $cloned;
}
@@ -462,7 +462,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method.pm Mon Feb 1 00:15:33 2010
@@ -41,7 +41,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm Mon Feb 1 00:15:33 2010
@@ -178,7 +178,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm Mon Feb 1 00:15:33 2010
@@ -197,7 +197,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm Mon Feb 1 00:15:33 2010
@@ -35,7 +35,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm Mon Feb 1 00:15:33 2010
@@ -53,7 +53,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Module.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Module.pm Mon Feb 1 00:15:33 2010
@@ -311,7 +311,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role.pm Mon Feb 1 00:15:33 2010
@@ -330,7 +330,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm Mon Feb 1 00:15:33 2010
@@ -50,7 +50,9 @@
}
sub add_attribute{
- my($self, $attr_name, $spec) = @_;
+ my $self = shift;
+ my $attr_name = shift;
+ my $spec = (@_ == 1 ? $_[0] : {@_});
my $existing = $self->{attributes}{$attr_name};
if($existing && $existing != $spec){
@@ -120,7 +122,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm Mon Feb 1 00:15:33 2010
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm Mon Feb 1 00:15:33 2010
@@ -203,7 +203,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Object.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Object.pm Mon Feb 1 00:15:33 2010
@@ -17,7 +17,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/PurePerl.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/PurePerl.pm Mon Feb 1 00:15:33 2010
@@ -664,7 +664,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Role.pm Mon Feb 1 00:15:33 2010
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.47';
+our $VERSION = '0.48';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -148,7 +148,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Spec.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Spec.pm Mon Feb 1 00:15:33 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.47';
+our $VERSION = '0.48';
our $MouseVersion = $VERSION;
our $MooseVersion = '0.93';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Tiny.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/Tiny.pod Mon Feb 1 00:15:33 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util.pm Mon Feb 1 00:15:33 2010
@@ -38,7 +38,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.47';
+ our $VERSION = '0.48';
my $xs = !(exists $INC{'Mouse/PurePerl.pm'} || $ENV{MOUSE_PUREPERL});
@@ -350,7 +350,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm Mon Feb 1 00:15:33 2010
@@ -364,7 +364,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=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=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/XS.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/XS.pod Mon Feb 1 00:15:33 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.47
+This document describes Mouse version 0.48
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/t/010_basics/009_import_unimport.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/t/010_basics/009_import_unimport.t?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/t/010_basics/009_import_unimport.t (original)
+++ trunk/libmouse-perl/t/010_basics/009_import_unimport.t Mon Feb 1 00:15:33 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 41;
+use Test::More tests => 40;
my @moose_exports = qw(
@@ -61,13 +61,4 @@
ok(!Bar->can($_), '... Bar can no longer do ' . $_) for @moose_type_constraint_exports;
-{
- package Baz;
- use Scalar::Util qw( blessed );
- use Mouse;
-
- no Mouse;
-}
-
-can_ok( 'Baz', 'blessed' );
Modified: trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs?rev=51972&op=diff
==============================================================================
--- trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs (original)
+++ trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs Mon Feb 1 00:15:33 2010
@@ -16,11 +16,15 @@
typedef int (*check_fptr_t)(pTHX_ SV* const data, SV* const sv);
+/*
+ NOTE: mouse_tc_check() handles GETMAGIC
+*/
int
mouse_tc_check(pTHX_ SV* const tc_code, SV* const sv) {
CV* const cv = (CV*)SvRV(tc_code);
assert(SvTYPE(cv) == SVt_PVCV);
+ SvGETMAGIC(sv);
if(CvXSUB(cv) == XS_Mouse_constraint_check){ /* built-in type constraints */
MAGIC* const mg = (MAGIC*)CvXSUBANY(cv).any_ptr;
@@ -244,7 +248,6 @@
I32 i;
for(i = 0; i < len; i++){
SV* const value = *av_fetch(av, i, TRUE);
- SvGETMAGIC(value);
if(!mouse_tc_check(aTHX_ param, value)){
return FALSE;
}
@@ -263,7 +266,6 @@
hv_iterinit(hv);
while((he = hv_iternext(hv))){
SV* const value = hv_iterval(hv, he);
- SvGETMAGIC(value);
if(!mouse_tc_check(aTHX_ param, value)){
hv_iterinit(hv); /* reset */
return FALSE;
More information about the Pkg-perl-cvs-commits
mailing list