This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use the 'new' startperl variable.
authorPerl 5 Porters <perl5-porters.nicoh.com>
Mon, 1 Jan 1996 23:11:28 +0000 (23:11 +0000)
committerAndy Dougherty <doughera.lafayette.edu>
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!'