X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mkppport;h=4636d3e5639a59b554fe62eeb8376f7c89d8720b;hb=08d0d8ab11be611f4baf746cfb6ff7791962f494;hp=07aa8b22e50b7ad4ec064f7c95750f20ce3267cf;hpb=16a923550a24cd3580cabfa5e5d58a4ee2561b87;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mkppport b/mkppport
index 07aa8b2..4636d3e 100644
--- 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 $@;
@@ -56,7 +56,7 @@ unshift @INC, File::Spec->catdir($absroot, 'lib');
 
 # Change to Devel::PPPort directory, as it needs the stuff
 # from the parts/ directory
-chdir File::Spec->catdir($rootdir, 'ext', 'Devel', 'PPPort');
+chdir File::Spec->catdir($rootdir, 'ext', 'Devel-PPPort');
 
 # Capture and remove temporary files
 my @unlink;
@@ -134,7 +134,7 @@ sub readlist
 #----------------------------------------------
 sub run
 {
-  my @args = ("-I" . File::Spec->catdir((File::Spec->updir) x 3, 'lib'), @_);
+  my @args = ("-I" . File::Spec->catdir((File::Spec->updir) x 2, 'lib'), @_);
   my $run = $perl =~ m/\s/ ? qq("$perl") : $perl;
   for (@args) {
     $_ = qq("$_") if $^O eq 'VMS' && /^[^"]/;