Make makedef.pl more robust

[p5sagit/p5-mst-13.2.git] / utils / xsubpp.PL

diff --git a/utils/xsubpp.PL b/utils/xsubpp.PL
index 86c4393..785ca82 100644 (file)
--- 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>;