xsubpp is a file, not a directory.

Follow-up to 4822030c168a634e0e2adb4eaa6369019c959730.

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