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);
{
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;