Fix FindBin under Win32, and document success

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

diff --git a/makeaperl.SH b/makeaperl.SH
index d621e67..16b7435 100755 (executable)
--- a/makeaperl.SH
+++ b/makeaperl.SH
@@ -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!'