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(dist ExtUtils-ParseXS
+ lib ExtUtils)),
+ 'xsubpp');
if (open(XSUBPP, $xsubpp)) {
print OUT <XSUBPP>;