X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_utils_home.t;h=4a11c0887d95c5844537f4ebd56e2bdfa786e5b0;hb=94d7a76e1f113e306327a86cbdbcae2afd428f0a;hp=7e499eebc65e19c7d3bec21e7c23644dd0fd0599;hpb=a8946dc8b4ba4c46b4db564b8f9692d48cc7a62f;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/unit_utils_home.t b/t/aggregate/unit_utils_home.t
index 7e499ee..4a11c08 100644
--- a/t/aggregate/unit_utils_home.t
+++ b/t/aggregate/unit_utils_home.t
@@ -15,7 +15,7 @@ my $cwd = cwd();
 foreach my $inc ('', 'lib', 'blib'){
     my $d = tempdir(CLEANUP => 1);
     chdir($d);
-    local $INC{'MyApp.pm'} = File::Spec->catdir($d, $inc, 'MyApp.pm');
+    local $INC{'MyApp.pm'} = File::Spec->catfile($d, $inc, 'MyApp.pm');
     ok !Catalyst::Utils::home('MyApp'), "No files found inc $inc";
     open(my $fh, '>', "Makefile.PL");
     close($fh);
@@ -24,7 +24,7 @@ foreach my $inc ('', 'lib', 'blib'){
 
 {
     my $d = tempdir(CLEANUP => 1);
-    local $INC{'MyApp.pm'} = File::Spec->catdir($d, 'MyApp.pm');
+    local $INC{'MyApp.pm'} = File::Spec->catfile($d, 'MyApp.pm');
     ok !Catalyst::Utils::home('MyApp'), 'No files found';
     mkdir File::Spec->catdir($d, 'MyApp');
     is Catalyst::Utils::home('MyApp'), dir($d, 'MyApp')->absolute->cleanup;