perl 5.003_01: [changes beteween cumulative patches and tarball release]

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

diff --git a/writemain.SH b/writemain.SH
old mode 100644 (file)
new mode 100755 (executable)
index e53af7d..66d14a1
--- a/writemain.SH
+++ b/writemain.SH
@@ -21,6 +21,7 @@ echo "Extracting writemain (with variable substitutions)"
 : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
 : Protect any dollar signs and backticks that you do not want interpreted
 : by putting a backslash in front.  You may delete these comments.
+rm -f writemain
 $spitshell >writemain <<!GROK!THIS!
 $startsh
 !GROK!THIS!
@@ -69,6 +70,7 @@ cat << 'EOP'
 static void
 xs_init()
 {
+  dXSUB_SYS;
 EOP
 
 if test X"$args" != "X" ; then