make_immutable is now deprecated, stop using it and a fix your old code please

diff --git a/Changes b/Changes
index 296647c..a04f042 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,12 @@
 Revision history for Perl extension Moose
 
+0.41
+    ** IMPORTANT NOTE **
+    - the make_immutable keyword is now deprecated, don't
+      use it in any new code and please fix your old code
+      as well. There will be 2 releases, and then it will
+      be removed.
+
 0.40 Fri. March 14, 2008
     - I hate Pod::Coverage
 

diff --git a/README b/README
index d28f60f..873b2f6 100644 (file)
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Moose version 0.40
+Moose version 0.41
 ===========================
 
 See the individual module documentation for more information

diff --git a/lib/Moose.pm b/lib/Moose.pm
index 644ac6f..3ec025a 100644 (file)
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -4,7 +4,7 @@ package Moose;
 use strict;
 use warnings;
 
-our $VERSION   = '0.40';
+our $VERSION   = '0.41';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
@@ -13,7 +13,7 @@ use Sub::Name    'subname';
 
 use Sub::Exporter;
 
-use Class::MOP 0.51;
+use Class::MOP;
 
 use Moose::Meta::Class;
 use Moose::Meta::TypeConstraint;
@@ -168,7 +168,8 @@ use Moose::Util ();
         make_immutable => sub {
             my $class = $CALLER;
             return subname 'Moose::make_immutable' => sub {
-                warn "Use of make_immutable() is deprecated, please use metaclass->make_immutable now\n";
+                warn "The make_immutable keyword has been deprecated, " . 
+                     "please go back to __PACKAGE__->meta->make_immutable\n";
                 $class->meta->make_immutable(@_);
             };            
         },