From: Stevan Little <stevan.little@iinteractive.com>
Date: Fri, 22 Feb 2008 21:08:03 +0000 (+0000)
Subject: some tweaks on C::MOP::Object
X-Git-Tag: 0_64~85
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=acce7fd6dc70b5349342f70b56adb98b92022e42;p=gitmo%2FClass-MOP.git

some tweaks on C::MOP::Object
---

diff --git a/Changes b/Changes
index 7cc381b..ba140f0 100644
--- 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
--- 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;
 }