X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;h=1e4d5c4afc6269c75e2ce06488d44b9ce1206613;hb=62b6b631cf9141ffd9ae02e4b87c182b080b335a;hp=b6d937449231d0a7723272b8d7f636d979c05f24;hpb=a202886b47ea577ff9e29c18214a7c02cfd8b9e3;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm index b6d9374..1e4d5c4 100644 --- a/t/lib/TestApp.pm +++ b/t/lib/TestApp.pm @@ -20,7 +20,7 @@ our $VERSION = '0.01'; TestApp->config( name => 'TestApp', root => '/some/dir' ); -if (eval { Class::MOP::load_class('CatalystX::LeakChecker'); 1 }) { +if ($::setup_leakchecker && eval { Class::MOP::load_class('CatalystX::LeakChecker'); 1 }) { with 'CatalystX::LeakChecker'; has leaks => ( @@ -67,7 +67,7 @@ sub execute { @executed ); } - + no warnings 'recursion'; return $c->SUPER::execute(@_); }