X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbugs%2Fmemory_leaks.t;fp=t%2Fbugs%2Fmemory_leaks.t;h=745d7397ac5574345c95a108a0b8f8759bbfb1f0;hb=983521d714955763cbe64f4815bdd02be22845c2;hp=8ed9d77c9a57a1c03dd7d0a84ff494ae9e67fa57;hpb=ad0c50220ad587286c838e4e528939a42ff2bb5b;p=gitmo%2FMoose.git

diff --git a/t/bugs/memory_leaks.t b/t/bugs/memory_leaks.t
index 8ed9d77..745d739 100644
--- a/t/bugs/memory_leaks.t
+++ b/t/bugs/memory_leaks.t
@@ -16,8 +16,7 @@ use Moose::Util qw( apply_all_roles );
     use Moose::Role;
     sub myname { "I'm a role" }
 }
-use Data::Dumper ();
-my $o = Data::Dumper->can('_dump'); *Data::Dumper::_dump = sub { Scalar::Util::isweak($_[1]) ? 'WEAK<'.&$o.'>' : &$o };
+
 no_leaks_ok(
     sub {
         Moose::Meta::Class->create_anon_class->new_object;