mkppport using catfile for catdir

Message-id: <496103B7.1000308@gmail.com>

diff --git a/mkppport b/mkppport
index 07aa8b2..be41fde 100644 (file)
--- a/mkppport
+++ b/mkppport
@@ -12,7 +12,7 @@ sub iterdirs(&);
 
 my $rootdir = dirname($0);
 
-unshift @INC, File::Spec->catfile($rootdir, 't', 'lib');
+unshift @INC, File::Spec->catdir($rootdir, 't', 'lib');
 
 eval q{ use MakeMaker::Test::Utils qw( which_perl ) };
 $@ and die $@;