instmodsh is a file, not a directory.

Follow-up to b78fd7160df924147ff968f6dc2796473af0c484.

diff --git a/utils/instmodsh.PL b/utils/instmodsh.PL
index 36b8858..7043f1b 100644 (file)
--- a/utils/instmodsh.PL
+++ b/utils/instmodsh.PL
@@ -35,8 +35,8 @@ use File::Spec;
 
 my $instmodsh
     = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
-                                            qw(ext ExtUtils-MakeMaker bin
-                                               instmodsh)));
+                                            qw(ext ExtUtils-MakeMaker bin)),
+                         'instmodsh');
 
 if (open(INSTMODSH, $instmodsh)) {
     print OUT <INSTMODSH>;