From: Stevan Little <stevan.little@iinteractive.com>
Date: Mon, 18 Feb 2008 14:55:21 +0000 (+0000)
Subject: changing make_{immtable,mutable} to return 1
X-Git-Tag: 0_64~86
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09c6e1d27dcdb564fbfaaf72165e95502d63c4b3;p=gitmo%2FClass-MOP.git

changing make_{immtable,mutable} to return 1
---

diff --git a/Changes b/Changes
index 66fece4..7cc381b 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,10 @@
 Revision history for Perl extension Class-MOP.
 
 0.54
+    * Class::MOP::Class
+      - make_{immutable,mutable} now return 1
+        (cause Sartak asked)
+ 
     * t/
       - fixed the filename length on several 
         test files so we install on VMS better
diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 127b360..ecce121 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -12,7 +12,7 @@ use Carp         'confess';
 use Scalar::Util 'blessed', 'reftype', 'weaken';
 use Sub::Name    'subname';
 
-our $VERSION   = '0.28';
+our $VERSION   = '0.29';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use base 'Class::MOP::Module';
@@ -866,6 +866,8 @@ sub is_immutable { 0 }
             print STDERR "# of Metaclass options:      ", keys %IMMUTABLE_OPTIONS;
             print STDERR "# of Immutable transformers: ", keys %IMMUTABLE_TRANSFORMERS;
         }
+        
+        1;
     }
 
     sub make_mutable{
@@ -875,6 +877,7 @@ sub is_immutable { 0 }
         confess "unable to find immutabilizing options" unless ref $options;
         my $transformer = delete $options->{IMMUTABLE_TRANSFORMER};
         $transformer->make_metaclass_mutable($self, $options);
+        1;
     }
 }