X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FScriptRunner.pm;h=b9a60f860f96c92d8595893564249a7b71184f67;hp=32031ede3b50908f585d35140b5e1be434d96481;hb=d2d007f49d5e9b06f0d1a6f38fc9ac8ac3306183;hpb=a8946dc8b4ba4c46b4db564b8f9692d48cc7a62f

diff --git a/lib/Catalyst/ScriptRunner.pm b/lib/Catalyst/ScriptRunner.pm
index 32031ed..b9a60f8 100644
--- a/lib/Catalyst/ScriptRunner.pm
+++ b/lib/Catalyst/ScriptRunner.pm
@@ -5,8 +5,8 @@ use lib;
 use File::Spec;
 use Class::Load qw/ load_first_existing_class load_optional_class /;
 use Catalyst::Utils;
-use namespace::autoclean -also => 'subclass_with_traits';
 use Try::Tiny;
+use namespace::clean -except => [ 'meta' ];
 
 sub find_script_class {
     my ($self, $app, $script) = @_;
@@ -19,6 +19,7 @@ sub find_script_traits {
     return grep { load_optional_class($_) } @try;
 }
 
+no namespace::clean;
 sub subclass_with_traits {
     my ($base, @traits) = @_;
 
@@ -31,11 +32,12 @@ sub subclass_with_traits {
 
     return $meta->name;
 }
+use namespace::clean;
 
 sub run {
     my ($self, $appclass, $scriptclass) = @_;
 
-    if (grep { -f File::Spec->catdir($FindBin::Bin, '..', $_) } Catalyst::Utils::dist_indicator_file_list()) {
+    if (grep { -f File::Spec->catfile($FindBin::Bin, '..', $_) } Catalyst::Utils::dist_indicator_file_list()) {
         lib->import(File::Spec->catdir($FindBin::Bin, '..', 'lib'));
     }