r69643 - in /branches/upstream/libmouse-perl/current: ./ lib/ lib/Mouse/ lib/Mouse/Meta/ lib/Mouse/Meta/Method/ lib/Mouse/Meta/Role/ lib/Mouse/Util/ t/000_recipes/ t/001_mouse/ xs-src/
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Fri Feb 25 15:05:08 UTC 2011
Author: ansgar
Date: Fri Feb 25 15:04:50 2011
New Revision: 69643
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69643
Log:
[svn-upgrade] new version libmouse-perl (0.90)
Modified:
branches/upstream/libmouse-perl/current/Changes
branches/upstream/libmouse-perl/current/META.yml
branches/upstream/libmouse-perl/current/lib/Mouse.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Application.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm
branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod
branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm
branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm
branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod
branches/upstream/libmouse-perl/current/mouse.h
branches/upstream/libmouse-perl/current/t/000_recipes/moose_cookbook_roles_recipe1.t
branches/upstream/libmouse-perl/current/t/001_mouse/060-threads.t
branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs
Modified: branches/upstream/libmouse-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/Changes?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/Changes (original)
+++ branches/upstream/libmouse-perl/current/Changes Fri Feb 25 15:04:50 2011
@@ -1,4 +1,12 @@
Revision history for Mouse
+
+0.90 2011-02-21 10:48:58
+ [BUG FIXES]
+ * Fix an abuse of a private Perl API, which changed at Perl 5.13.10
+ (Thanks to avar)
+
+ [NEW FEATURES]
+ * Support the DOES() method for Mouse::Object
0.89 2011-01-27 09:18:39
[BUG FIXES]
Modified: branches/upstream/libmouse-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/META.yml?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/META.yml (original)
+++ branches/upstream/libmouse-perl/current/META.yml Fri Feb 25 15:04:50 2011
@@ -31,4 +31,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/Mouse.git
-version: 0.89
+version: 0.90
Modified: branches/upstream/libmouse-perl/current/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse.pm Fri Feb 25 15:04:50 2011
@@ -3,7 +3,7 @@
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.89';
+our $VERSION = '0.90';
use Carp ();
use Scalar::Util ();
@@ -155,7 +155,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Exporter.pm Fri Feb 25 15:04:50 2011
@@ -267,7 +267,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Attribute.pm Fri Feb 25 15:04:50 2011
@@ -342,7 +342,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Class.pm Fri Feb 25 15:04:50 2011
@@ -470,7 +470,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method.pm Fri Feb 25 15:04:50 2011
@@ -54,7 +54,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Accessor.pm Fri Feb 25 15:04:50 2011
@@ -187,7 +187,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Constructor.pm Fri Feb 25 15:04:50 2011
@@ -232,7 +232,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Delegation.pm Fri Feb 25 15:04:50 2011
@@ -61,7 +61,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Method/Destructor.pm Fri Feb 25 15:04:50 2011
@@ -65,7 +65,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Module.pm Fri Feb 25 15:04:50 2011
@@ -311,7 +311,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role.pm Fri Feb 25 15:04:50 2011
@@ -131,7 +131,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Application.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Application.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Application.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Application.pm Fri Feb 25 15:04:50 2011
@@ -209,7 +209,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Composite.pm Fri Feb 25 15:04:50 2011
@@ -156,7 +156,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/Role/Method.pm Fri Feb 25 15:04:50 2011
@@ -23,7 +23,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Meta/TypeConstraint.pm Fri Feb 25 15:04:50 2011
@@ -276,7 +276,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Object.pm Fri Feb 25 15:04:50 2011
@@ -1,6 +1,12 @@
package Mouse::Object;
use Mouse::Util qw(does dump meta); # enables strict and warnings
# all the stuff are defined in XS or PP
+
+sub DOES {
+ my($self, $class_or_role_name) = @_;
+ return $self->isa($class_or_role_name) || $self->does($class_or_role_name);
+}
+
1;
__END__
@@ -10,7 +16,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 METHODS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/PurePerl.pm Fri Feb 25 15:04:50 2011
@@ -749,7 +749,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SEE ALSO
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Role.pm Fri Feb 25 15:04:50 2011
@@ -1,7 +1,7 @@
package Mouse::Role;
use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.89';
+our $VERSION = '0.90';
use Carp ();
use Scalar::Util ();
@@ -137,7 +137,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Spec.pm Fri Feb 25 15:04:50 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
-our $VERSION = '0.89';
+our $VERSION = '0.90';
our $MouseVersion = $VERSION;
our $MooseVersion = '1.13';
@@ -19,7 +19,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Tiny.pod Fri Feb 25 15:04:50 2011
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Util.pm Fri Feb 25 15:04:50 2011
@@ -50,7 +50,7 @@
},
);
- our $VERSION = '0.89';
+ our $VERSION = '0.90';
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.89
+This document describes Mouse version 0.90
=head1 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/Util/TypeConstraints.pm Fri Feb 25 15:04:50 2011
@@ -432,7 +432,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head2 SYNOPSIS
Modified: branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse/XS.pod Fri Feb 25 15:04:50 2011
@@ -5,7 +5,7 @@
=head1 VERSION
-This document describes Mouse version 0.89
+This document describes Mouse version 0.90
=head1 DESCRIPTION
Modified: branches/upstream/libmouse-perl/current/mouse.h
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/mouse.h?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/mouse.h (original)
+++ branches/upstream/libmouse-perl/current/mouse.h Fri Feb 25 15:04:50 2011
@@ -17,6 +17,10 @@
#define mro_get_pkg_gen(stash) (HvAUX(stash)->xhv_mro_meta ? HvAUX(stash)->xhv_mro_meta->pkg_gen : (U32)0)
#endif /* !no_mro_get_linear_isa */
#endif /* mro_get_package_gen */
+
+#ifndef GvCV_set
+#define GvCV_set(gv, cv) (GvCV(gv) = (cv))
+#endif
extern SV* mouse_package;
extern SV* mouse_methods;
Modified: branches/upstream/libmouse-perl/current/t/000_recipes/moose_cookbook_roles_recipe1.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/t/000_recipes/moose_cookbook_roles_recipe1.t?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/t/000_recipes/moose_cookbook_roles_recipe1.t (original)
+++ branches/upstream/libmouse-perl/current/t/000_recipes/moose_cookbook_roles_recipe1.t Fri Feb 25 15:04:50 2011
@@ -85,11 +85,8 @@
my $hundred = US::Currency->new( amount => 100.00 );
isa_ok( $hundred, 'US::Currency' );
-{
-local $TODO = 'UNIVERSAL::DOES is not supported';
-ok( eval{ $hundred->DOES("US::Currency") }, "UNIVERSAL::DOES for class" );
-ok( eval{ $hundred->DOES("Comparable") }, "UNIVERSAL::DOES for role" );
-}
+ok( $hundred->DOES("US::Currency"), "UNIVERSAL::DOES for class" );
+ok( $hundred->DOES("Comparable"), "UNIVERSAL::DOES for role" );
can_ok( $hundred, 'amount' );
is( $hundred->amount, 100, '... got the right amount' );
Modified: branches/upstream/libmouse-perl/current/t/001_mouse/060-threads.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/t/001_mouse/060-threads.t?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/t/001_mouse/060-threads.t (original)
+++ branches/upstream/libmouse-perl/current/t/001_mouse/060-threads.t Fri Feb 25 15:04:50 2011
@@ -6,9 +6,8 @@
use if !HAS_THREADS, 'Test::More',
(skip_all => "This is a test for threads ($@)");
-use if $Test::More::VERSION == 2.00_01, 'Test::More',
- (skip_all => "Test::Builder2 2.00_01 has bugs about threads");
-
+use if $Test::More::VERSION >= 2.00, 'Test::More',
+ (skip_all => "Test::Builder2 has bugs about threads");
{
package MyTraits;
@@ -32,6 +31,7 @@
traits => [qw(MyTraits)],
);
}
+pass;
my $o = MyClass->new(foo => Foo->new(value => 42));
threads->create(sub{
Modified: branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs?rev=69643&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs (original)
+++ branches/upstream/libmouse-perl/current/xs-src/MouseUtil.xs Fri Feb 25 15:04:50 2011
@@ -323,7 +323,7 @@
if(GvCVu(gv)){ /* delete *slot{gv} to work around "redefine" warning */
SvREFCNT_dec(GvCV(gv));
- GvCV(gv) = NULL;
+ GvCV_set(gv, NULL);
}
sv_setsv_mg((SV*)gv, code_ref); /* *gv = $code_ref */
More information about the Pkg-perl-cvs-commits
mailing list