Perl 5.003 bug when embedding in C++ program

[p5sagit/p5-mst-13.2.git] / makeaperl.SH

diff --git a/makeaperl.SH b/makeaperl.SH
old mode 100644 (file)
new mode 100755 (executable)
index c65b41d..d621e67
--- 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 perl -S \$0 "\$@"'
+       if 0;
 !GROK!THIS!
 
 $spitshell >>makeaperl <<'!NO!SUBS!'