From: Stevan Little <stevan.little@iinteractive.com>
Date: Thu, 4 May 2006 01:26:45 +0000 (+0000)
Subject: foo
X-Git-Tag: 0_29_02~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa16e528c74e94ce28ddd8f6e7d8421e5ec0b3c9;p=gitmo%2FClass-MOP.git

foo
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 85198f9..1b4580f 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -107,7 +107,7 @@ sub meta { Class::MOP::Class->initialize(blessed($_[0]) || $_[0]) }
                            " is not compatible with the " . 
                            $class_name . "->meta => (" . ($meta->instance_metaclass) . ")";                           
         }        
-    }
+    } 
 }
 
 sub create {
diff --git a/lib/Class/MOP/Instance.pm b/lib/Class/MOP/Instance.pm
index f9a34da..2ab4ec4 100644
--- a/lib/Class/MOP/Instance.pm
+++ b/lib/Class/MOP/Instance.pm
@@ -4,7 +4,7 @@ package Class::MOP::Instance;
 use strict;
 use warnings;
 
-use Scalar::Util 'weaken';
+use Scalar::Util 'weaken', 'blessed';
 
 our $VERSION = '0.01';