X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mkppport;h=4636d3e5639a59b554fe62eeb8376f7c89d8720b;hb=0ff33da805881f90d7498cc372bfd74c526f48f9;hp=be41fde353eea25a5b0fe45d7d128717db3b0a76;hpb=9d3a1c7447ce46db940dfe0695c29ad02ad1657f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mkppport b/mkppport
index be41fde..4636d3e 100644
--- a/mkppport
+++ b/mkppport
@@ -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' && /^[^"]/;