X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makeaperl.SH;h=45812ba7dcc09bdb31c7e61f1de6dc56c53e67d5;hb=dbe483029183d54ab170feb5939c3b2b8b193b3c;hp=d621e67f0305ef911b68a1716bdd0a49629108c3;hpb=63eb108b0a1e0a9928bf7d5d48434a5e376da2aa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makeaperl.SH b/makeaperl.SH
index d621e67..45812ba 100644
--- a/makeaperl.SH
+++ b/makeaperl.SH
@@ -1,4 +1,4 @@
-case $CONFIG in
+case $CONFIGDOTSH in
 '')
 	if test -f config.sh; then TOP=.;
 	elif test -f ../config.sh; then TOP=..;
@@ -20,8 +20,8 @@ echo "Extracting makeaperl (with variable substitutions)"
 rm -f makeaperl
 $spitshell >makeaperl <<!GROK!THIS!
 $startperl
-    eval 'exec perl -S \$0 "\$@"'
-	if 0;
+    eval 'exec $perlpath -S \$0 \${1+"\$@"}'
+	if \$running_under_some_shell;
 !GROK!THIS!
 
 $spitshell >>makeaperl <<'!NO!SUBS!'