From: Stevan Little <stevan.little@iinteractive.com>
Date: Tue, 24 Oct 2006 21:42:51 +0000 (+0000)
Subject: foo
X-Git-Tag: 0_36~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a651e249ef1948e9c6b192fb29e4f19546a81147;p=gitmo%2FClass-MOP.git

foo
---

diff --git a/Changes b/Changes
index 75567e3..25750c9 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,11 @@
 Revision history for Perl extension Class-MOP.
 
+0.36
+    * Class::MOP::Class
+      - added a few 'no warnings' lines to keep annoying 
+        (and meaningless) warnings from chirping during 
+        global destruction.
+
 0.35 Sat. Sept. 30, 2006
 
     * scripts/class_browser.pl
diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 425364b..1ef47ae 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -9,7 +9,7 @@ use Scalar::Util 'blessed', 'reftype', 'weaken';
 use Sub::Name    'subname';
 use B            'svref_2object';
 
-our $VERSION   = '0.20';
+our $VERSION   = '0.21';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Class::MOP::Module';
@@ -173,6 +173,7 @@ sub check_metaclass_compatability {
 
     sub is_anon_class {
         my $self = shift;
+        no warnings 'uninitialized';
         $self->name =~ /^$ANON_CLASS_PREFIX/ ? 1 : 0;        
     }
 
@@ -190,6 +191,7 @@ sub check_metaclass_compatability {
     # really need to be handled explicitly
     sub DESTROY {
         my $self = shift;
+        no warnings 'uninitialized';        
         return unless $self->name =~ /^$ANON_CLASS_PREFIX/;
         my ($serial_id) = ($self->name =~ /^$ANON_CLASS_PREFIX(\d+)/);
         no strict 'refs';