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>;