X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fxsubpp.PL;h=785ca821c3ad853ea09a2bde3f65d342e5e8cea2;hb=9d6c7f2eccef26a6d6eb46a8192949a88c6aaf8f;hp=86c43936f7e37380ac9f50063577d79aee141217;hpb=a55f9fbc122e135334917b92ce41b3960365c082;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/xsubpp.PL b/utils/xsubpp.PL
index 86c4393..785ca82 100644
--- a/utils/xsubpp.PL
+++ b/utils/xsubpp.PL
@@ -33,7 +33,10 @@ $Config{startperl}
 
 use File::Spec;
 
-my $xsubpp = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "lib", "ExtUtils"), "xsubpp");
+my $xsubpp = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
+						    qw(ext ExtUtils-ParseXS
+						       lib ExtUtils)),
+				 'xsubpp');
 
 if (open(XSUBPP, $xsubpp)) {
     print OUT <XSUBPP>;