Use the 'new' startperl variable.
Perl 5 Porters [Mon, 1 Jan 1996 23:11:28 +0000 (23:11 +0000)]
makeaperl.SH

index bb266f4..6af9419 100755 (executable)
@@ -18,7 +18,9 @@ case "$0" in
 esac
 echo "Extracting makeaperl (with variable substitutions)"
 $spitshell >makeaperl <<!GROK!THIS!
-#!$binexp/perl
+$startperl
+    eval 'exec perl -S \$0 "\$@"'
+       if 0;
 !GROK!THIS!
 
 $spitshell >>makeaperl <<'!NO!SUBS!'