cluck instead of warn

diff --git a/Changes b/Changes
index a536a28..d34bdc4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Moose
 
+    * Moose
+      - made make_immutable warning cluck to show where the error is
+
 0.44
     * Moose::Cookbook::Recipe7
       - added new recipe for immutable functionality (Dave Rolsky)

diff --git a/lib/Moose.pm b/lib/Moose.pm
index 8776106..26e62eb 100644 (file)
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -8,7 +8,7 @@ our $VERSION   = '0.43';
 our $AUTHORITY = 'cpan:STEVAN';
 
 use Scalar::Util 'blessed', 'reftype';
-use Carp         'confess', 'croak';
+use Carp         'confess', 'croak', 'cluck';
 use Sub::Name    'subname';
 
 use Sub::Exporter;
@@ -174,8 +174,8 @@ use Moose::Util ();
         make_immutable => sub {
             my $class = $CALLER;
             return subname 'Moose::make_immutable' => sub {
-                warn "The make_immutable keyword has been deprecated, " . 
-                     "please go back to __PACKAGE__->meta->make_immutable\n";
+                cluck "The make_immutable keyword has been deprecated, " . 
+                      "please go back to __PACKAGE__->meta->make_immutable\n";
                 $class->meta->make_immutable(@_);
             };            
         },