some tweaks on C::MOP::Object

diff --git a/Changes b/Changes
index 7cc381b..ba140f0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -4,6 +4,10 @@ Revision history for Perl extension Class-MOP.
     * Class::MOP::Class
       - make_{immutable,mutable} now return 1
         (cause Sartak asked)
+        
+    * Class::MOP::Object
+      - localizing the Data::Dumper configurations so 
+        that it does not pollute others (RT #33509)        
  
     * t/
       - fixed the filename length on several 

diff --git a/lib/Class/MOP/Object.pm b/lib/Class/MOP/Object.pm
index 4bf6e46..2d18cf9 100644 (file)
--- a/lib/Class/MOP/Object.pm
+++ b/lib/Class/MOP/Object.pm
@@ -6,7 +6,7 @@ use warnings;
 
 use Scalar::Util 'blessed';
 
-our $VERSION   = '0.02';
+our $VERSION   = '0.03';
 our $AUTHORITY = 'cpan:STEVAN';
 
 # introspection
@@ -28,7 +28,7 @@ sub meta {
 sub dump { 
     my $self = shift;
     require Data::Dumper;
-    $Data::Dumper::Maxdepth = shift || 1;
+    local $Data::Dumper::Maxdepth = shift || 1;
     Data::Dumper::Dumper $self;
 }