Fix freebsd/netbsd builds

[perl5.git] / utils / instmodsh.PL

diff --git a/utils/instmodsh.PL b/utils/instmodsh.PL
index a1e7b55..1a9af21 100644 (file)
--- a/utils/instmodsh.PL
+++ b/utils/instmodsh.PL
@@ -28,7 +28,7 @@ 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;