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 c857df4..785ca82 100644 (file)
--- a/utils/xsubpp.PL
+++ b/utils/xsubpp.PL
@@ -35,7 +35,8 @@ use File::Spec;
 
 my $xsubpp = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
                                                    qw(ext ExtUtils-ParseXS
-                                                      lib ExtUtils xsubpp)));
+                                                      lib ExtUtils)),
+                                'xsubpp');
 
 if (open(XSUBPP, $xsubpp)) {
     print OUT <XSUBPP>;