r65651 - in /trunk/libmouse-perl: ./ debian/ inc/Module/Install/ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ xs-src/ xt/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Thu Dec 9 11:14:44 UTC 2010
Author: ansgar
Date: Thu Dec 9 11:14:35 2010
New Revision: 65651
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65651
Log:
IGNORE-VERSION: 0.88-1
Bugfix for perl w/o mro.pm, but Debian's perl has it.
Modified:
trunk/libmouse-perl/Changes
trunk/libmouse-perl/META.yml
trunk/libmouse-perl/debian/changelog
trunk/libmouse-perl/inc/Module/Install/TestTarget.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/mouse.h
trunk/libmouse-perl/xs-src/Mouse.xs
trunk/libmouse-perl/xs-src/MouseAccessor.xs
trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs
trunk/libmouse-perl/xt/002-pod_spell.t
Modified: trunk/libmouse-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/Changes?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/Changes (original)
+++ trunk/libmouse-perl/Changes Thu Dec 9 11:14:35 2010
@@ -1,4 +1,9 @@
Revision history for Mouse
+
+0.88 2010-12-05 14:24:14
+ [BUG FIX]
+ * Workaround SL4A where mro.pm doesn't exist even if Perl >= 5.10.0
+ (reported by @hide_o_55)
0.87 2010-11-13 23:44:20
[BUG FIXES]
Modified: trunk/libmouse-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/META.yml?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/META.yml (original)
+++ trunk/libmouse-perl/META.yml Thu Dec 9 11:14:35 2010
@@ -31,4 +31,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/Mouse.git
-version: 0.87
+version: 0.88
Modified: trunk/libmouse-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/debian/changelog?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/debian/changelog (original)
+++ trunk/libmouse-perl/debian/changelog Thu Dec 9 11:14:35 2010
@@ -1,3 +1,10 @@
+libmouse-perl (0.88-1) UNRELEASED; urgency=low
+
+ IGNORE-VERSION: 0.88-1
+ Bugfix for perl w/o mro.pm, but Debian's perl has it.
+
+ -- Ansgar Burchardt <ansgar at debian.org> Thu, 09 Dec 2010 12:08:14 +0100
+
libmouse-perl (0.87-1) unstable; urgency=low
* New upstream release.
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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/inc/Module/Install/TestTarget.pm (original)
+++ trunk/libmouse-perl/inc/Module/Install/TestTarget.pm Thu Dec 9 11:14:35 2010
@@ -3,7 +3,7 @@
use 5.006_002;
use strict;
#use warnings; # XXX: warnings.pm produces a lot of 'redefine' warnings!
-our $VERSION = '0.14';
+our $VERSION = '0.15';
use base qw(Module::Install::Base);
use Config;
Modified: trunk/libmouse-perl/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse.pm?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse.pm (original)
+++ trunk/libmouse-perl/lib/Mouse.pm Thu Dec 9 11:14:35 2010
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.87';
+our $VERSION = '0.88';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -155,7 +155,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=head1 SYNOPSIS
@@ -408,6 +408,8 @@
=head1 SEE ALSO
+L<Mouse::Role>
+
L<Mouse::Spec>
L<Moose>
Modified: trunk/libmouse-perl/lib/Mouse/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Exporter.pm?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Exporter.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Exporter.pm Thu Dec 9 11:14:35 2010
@@ -267,7 +267,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Attribute.pm Thu Dec 9 11:14:35 2010
@@ -342,7 +342,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Class.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Class.pm Thu Dec 9 11:14:35 2010
@@ -468,7 +468,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method.pm Thu Dec 9 11:14:35 2010
@@ -54,7 +54,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Accessor.pm Thu Dec 9 11:14:35 2010
@@ -187,7 +187,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Constructor.pm Thu Dec 9 11:14:35 2010
@@ -232,7 +232,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Delegation.pm Thu Dec 9 11:14:35 2010
@@ -61,7 +61,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Method/Destructor.pm Thu Dec 9 11:14:35 2010
@@ -65,7 +65,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Module.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Module.pm Thu Dec 9 11:14:35 2010
@@ -311,7 +311,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role.pm Thu Dec 9 11:14:35 2010
@@ -131,7 +131,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Application.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Application.pm Thu Dec 9 11:14:35 2010
@@ -209,7 +209,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Composite.pm Thu Dec 9 11:14:35 2010
@@ -156,7 +156,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/Role/Method.pm Thu Dec 9 11:14:35 2010
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Meta/TypeConstraint.pm Thu Dec 9 11:14:35 2010
@@ -276,7 +276,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Object.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Object.pm Thu Dec 9 11:14:35 2010
@@ -10,7 +10,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/PurePerl.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/PurePerl.pm Thu Dec 9 11:14:35 2010
@@ -749,7 +749,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Role.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Role.pm Thu Dec 9 11:14:35 2010
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.87';
+our $VERSION = '0.88';
use Carp qw(confess);
use Scalar::Util qw(blessed);
@@ -137,7 +137,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=head1 SYNOPSIS
@@ -238,5 +238,9 @@
L<Moose::Role>
+L<Moose::Manual::Roles>
+
+L<Moose::Spec::Role>
+
=cut
Modified: trunk/libmouse-perl/lib/Mouse/Spec.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/lib/Mouse/Spec.pm?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Spec.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Spec.pm Thu Dec 9 11:14:35 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.87';
+our $VERSION = '0.88';
our $MouseVersion = $VERSION;
our $MooseVersion = '1.13';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Tiny.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/Tiny.pod Thu Dec 9 11:14:35 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util.pm Thu Dec 9 11:14:35 2010
@@ -48,7 +48,7 @@
},
);
- our $VERSION = '0.87';
+ our $VERSION = '0.88';
my $xs = !(defined(&is_valid_class_name) || $ENV{MOUSE_PUREPERL} || $ENV{PERL_ONLY});
@@ -127,10 +127,10 @@
BEGIN {
my $get_linear_isa;
- if ($] >= 5.009_005) {
- require mro;
+ if (eval { require mro }) {
$get_linear_isa = \&mro::get_linear_isa;
- } else {
+ }
+ else {
# this code is based on MRO::Compat::__get_linear_isa
my $_get_linear_isa_dfs; # this recurses so it isn't pretty
$_get_linear_isa_dfs = sub {
@@ -388,7 +388,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=head1 SYNOPSIS
@@ -442,7 +442,7 @@
=head3 C<< Mouse::Util::get_all_metaclass_names() -> (ClassNames) >>
-=head2 MRO::Compat
+=head2 mro (or MRO::Compat)
=head3 C<get_linear_isa>
@@ -466,6 +466,8 @@
L<Sub::Identify>
+L<mro>
+
L<MRO::Compat>
=cut
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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm (original)
+++ trunk/libmouse-perl/lib/Mouse/Util/TypeConstraints.pm Thu Dec 9 11:14:35 2010
@@ -432,7 +432,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=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=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/lib/Mouse/XS.pod (original)
+++ trunk/libmouse-perl/lib/Mouse/XS.pod Thu Dec 9 11:14:35 2010
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.87
+This document describes Mouse version 0.88
=head1 DESCRIPTION
Modified: trunk/libmouse-perl/mouse.h
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/mouse.h?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/mouse.h (original)
+++ trunk/libmouse-perl/mouse.h Thu Dec 9 11:14:35 2010
@@ -191,8 +191,6 @@
int mouse_is_an_instance_of(pTHX_ HV* const stash, SV* const instance);
-XS(XS_Mouse_constraint_check);
-
/* Mouse XS Attribute object */
AV* mouse_get_xa(pTHX_ SV* const attr);
Modified: trunk/libmouse-perl/xs-src/Mouse.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/xs-src/Mouse.xs?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/xs-src/Mouse.xs (original)
+++ trunk/libmouse-perl/xs-src/Mouse.xs Thu Dec 9 11:14:35 2010
@@ -436,8 +436,8 @@
return (AV*)SvRV(storage_ref);
}
-static void
-XS_Mouse_value_holder(pTHX_ CV* const cv PERL_UNUSED_DECL) {
+static
+XSPROTO(XS_Mouse_value_holder) {
dVAR; dXSARGS;
SV* const value = (SV*)XSANY.any_ptr;
assert(value);
Modified: trunk/libmouse-perl/xs-src/MouseAccessor.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/xs-src/MouseAccessor.xs?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/xs-src/MouseAccessor.xs (original)
+++ trunk/libmouse-perl/xs-src/MouseAccessor.xs Thu Dec 9 11:14:35 2010
@@ -37,12 +37,14 @@
xsub = newXS(NULL, accessor_impl, __FILE__);
sv_2mortal((SV*)xsub);
- mg = sv_magicext((SV*)xsub, MOUSE_xa_slot(xa), PERL_MAGIC_ext, &mouse_accessor_vtbl, (char*)xa, HEf_SVKEY);
+ mg = sv_magicext((SV*)xsub, MOUSE_xa_slot(xa),
+ PERL_MAGIC_ext, &mouse_accessor_vtbl, (char*)xa, HEf_SVKEY);
MOUSE_mg_flags(mg) = (U16)MOUSE_xa_flags(xa);
/* NOTE:
- * although we use MAGIC for gc, we also store mg to CvXSUBANY for efficiency (gfx)
+ * although we use MAGIC for gc, we also store mg to
+ * CvXSUBANY for efficiency (gfx)
*/
CvXSUBANY(xsub).any_ptr = (void*)mg;
@@ -243,18 +245,21 @@
MAGIC* mg;
if(!fq_name){
- /* anonymous xsubs need sv_2mortal */
+ /* anonymous xsubs need sv_2mortal() */
sv_2mortal((SV*)xsub);
}
- mg = sv_magicext((SV*)xsub, slot, PERL_MAGIC_ext, &mouse_accessor_vtbl, (char*)dptr, dlen);
+ mg = sv_magicext((SV*)xsub, slot,
+ PERL_MAGIC_ext, &mouse_accessor_vtbl, (char*)dptr, dlen);
+
SvREFCNT_dec(slot); /* sv_magicext() increases refcnt in mg_obj */
if(dlen == HEf_SVKEY){
SvREFCNT_dec(dptr);
}
/* NOTE:
- * although we use MAGIC for gc, we also store mg to CvXSUBANY for efficiency (gfx)
+ * although we use MAGIC for gc, we also store mg to CvXSUBANY
+ * for efficiency (gfx)
*/
CvXSUBANY(xsub).any_ptr = (void*)mg;
Modified: trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs (original)
+++ trunk/libmouse-perl/xs-src/MouseTypeConstraints.xs Thu Dec 9 11:14:35 2010
@@ -11,6 +11,9 @@
#endif
typedef int (*check_fptr_t)(pTHX_ SV* const data, SV* const sv);
+
+static
+XSPROTO(XS_Mouse_constraint_check);
/*
NOTE: mouse_tc_check() handles GETMAGIC
@@ -544,8 +547,8 @@
return mouse_tc_generate(aTHX_ predicate_name, (check_fptr_t)mouse_can_methods, (SV*)param);
}
-
-XS(XS_Mouse_constraint_check) {
+static
+XSPROTO(XS_Mouse_constraint_check) {
dVAR;
dXSARGS;
MAGIC* const mg = (MAGIC*)XSANY.any_ptr;
@@ -561,8 +564,8 @@
XSRETURN(1);
}
-XS(XS_Mouse_TypeConstraint_fallback); /* -Wmissing-prototypes */
-XS(XS_Mouse_TypeConstraint_fallback) {
+static
+XSPROTO(XS_Mouse_TypeConstraint_fallback) {
dXSARGS;
PERL_UNUSED_VAR(cv);
PERL_UNUSED_VAR(items);
Modified: trunk/libmouse-perl/xt/002-pod_spell.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmouse-perl/xt/002-pod_spell.t?rev=65651&op=diff
==============================================================================
--- trunk/libmouse-perl/xt/002-pod_spell.t (original)
+++ trunk/libmouse-perl/xt/002-pod_spell.t Thu Dec 9 11:14:35 2010
@@ -188,6 +188,7 @@
transformability
redispatch
MISC
+mro
# as in required-ness
ness
More information about the Pkg-perl-cvs-commits
mailing list