Cleaner implementations for Perl_clone_params_{new,del}

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

diff --git a/utils/xsubpp.PL b/utils/xsubpp.PL
index c857df4..9d75279 100644 (file)
--- a/utils/xsubpp.PL
+++ b/utils/xsubpp.PL
@@ -34,8 +34,9 @@ $Config{startperl}
 use File::Spec;
 
 my $xsubpp = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
-                                                   qw(ext ExtUtils-ParseXS
-                                                      lib ExtUtils xsubpp)));
+                                                   qw(cpan ExtUtils-ParseXS
+                                                      lib ExtUtils)),
+                                'xsubpp');
 
 if (open(XSUBPP, $xsubpp)) {
     print OUT <XSUBPP>;