X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/b78fd7160df924147ff968f6dc2796473af0c484..c07463d862e4832cc6a94200a77a3170ef2dca18:/utils/instmodsh.PL

diff --git a/utils/instmodsh.PL b/utils/instmodsh.PL
index 36b8858..1a9af21 100644
--- a/utils/instmodsh.PL
+++ b/utils/instmodsh.PL
@@ -18,7 +18,7 @@ chdir dirname($0);
 my $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
-open OUT,">$file" or die "Can't create $file: $!";
+open OUT, '>', $file or die "Can't create $file: $!";
 
 print "Extracting $file (with variable substitutions)\n";
 
@@ -28,17 +28,17 @@ print "Extracting $file (with variable substitutions)\n";
 print OUT <<"!GROK!THIS!";
 $Config{startperl}
     eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
-	if \$running_under_some_shell;
+	if 0; # ^ Run only under a shell
 !GROK!THIS!
 
 use File::Spec;
 
 my $instmodsh
     = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
-					     qw(ext ExtUtils-MakeMaker bin
-						instmodsh)));
+					     qw(cpan ExtUtils-MakeMaker bin)),
+			  'instmodsh');
 
-if (open(INSTMODSH, $instmodsh)) {
+if (open(INSTMODSH, '<', $instmodsh)) {
     print OUT <INSTMODSH>;
     close INSTMODSH;
 } else {