fix

diff --git a/Changes b/Changes
index 180c77a..5dd4f62 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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);
         }