X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=makeaperl.SH;h=16b74350e01359b2879e759a121d423b80399eda;hb=9b6570b4f9243e4e8b953fb4650b22aab639eabc;hp=c65b41d644cfc2069a8dd87c0f570feb894c224f;hpb=40000a8c37c35cc00114329ca0add46bca36a0ec;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/makeaperl.SH b/makeaperl.SH
index c65b41d..16b7435 100644
--- a/makeaperl.SH
+++ b/makeaperl.SH
@@ -17,8 +17,11 @@ case "$0" in
 */*) cd `expr X$0 : 'X\(.*\)/'` ;;
 esac
 echo "Extracting makeaperl (with variable substitutions)"
+rm -f makeaperl
 $spitshell >makeaperl <<!GROK!THIS!
-#!$bin/perl
+$startperl
+    eval 'exec $perlpath -S \$0 \${1+"\$@"}'
+	if \$running_under_some_shell;
 !GROK!THIS!
 
 $spitshell >>makeaperl <<'!NO!SUBS!'