From: Stevan Little Date: Tue, 10 Oct 2006 12:29:47 +0000 (+0000) Subject: fix X-Git-Tag: 0_15~5 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37ee30c9a56f076b499c84976a17bf9d2eea27cc;p=gitmo%2FMoose.git fix --- diff --git a/Changes b/Changes index 180c77a..5dd4f62 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,11 @@ Revision history for Perl extension Moose +0.15 + * Moose::Meta::Class + - fixed minor issue which occasionally + comes up during global destruction + (thanks omega) + 0.14 Mon. Oct. 9, 2006 * Moose::Meta::Attribute diff --git a/README b/README index 1690d5a..1696dfc 100644 --- a/README +++ b/README @@ -1,4 +1,4 @@ -Moose version 0.14 +Moose version 0.15 =========================== See the individual module documentation for more information diff --git a/lib/Moose.pm b/lib/Moose.pm index 8bac829..3264473 100644 --- a/lib/Moose.pm +++ b/lib/Moose.pm @@ -4,7 +4,7 @@ package Moose; use strict; use warnings; -our $VERSION = '0.14'; +our $VERSION = '0.15'; use Scalar::Util 'blessed', 'reftype'; use Carp 'confess'; diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm index 5ea4b61..39ff982 100644 --- a/lib/Moose/Meta/Class.pm +++ b/lib/Moose/Meta/Class.pm @@ -9,7 +9,7 @@ use Class::MOP; use Carp 'confess'; use Scalar::Util 'weaken', 'blessed', 'reftype'; -our $VERSION = '0.07'; +our $VERSION = '0.08'; use base 'Class::MOP::Class'; @@ -115,7 +115,7 @@ sub get_method_map { my $gv = B::svref_2object($code)->GV; my $pkg = $gv->STASH->NAME; - if ($pkg->can('meta') && $pkg->meta->isa('Moose::Meta::Role')) { + if ($pkg->can('meta') && $pkg->meta && $pkg->meta->isa('Moose::Meta::Role')) { #my $role = $pkg->meta->name; #next unless $self->does_role($role); }