Handle characters with high bit set

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

diff --git a/writemain.SH b/writemain.SH
index c70ac20..4884a38 100644 (file)
--- a/writemain.SH
+++ b/writemain.SH
@@ -69,6 +69,7 @@ cat << 'EOP'
 static void
 xs_init()
 {
+  dXSUB_SYS;
 EOP
 
 if test X"$args" != "X" ; then
@@ -90,21 +91,8 @@ if test X"$args" != "X" ; then
        else
            echo "        newXS(\"${mname}::bootstrap\", boot_${cname}, file);"
        fi
-       # does this extension wish to supply automatic booting code?
-    for aifile in ext/$ext/AutoInit.* ; do
-               case $aifile in
-               *.c)echo "      /* autoinit code from $aifile follows: */"
-                       echo "  {"; cat $aifile; echo " }"
-                       ;;
-               *.pl) ai="$ai `cat $aifile | tr '\012' ' '`;"
-                       ;;
-               esac
-       done
        echo "    }"
     done
-    if test "X$ai" != "X"; then
-       echo "    autoboot_preamble = \"BEGIN { $ai }\";"
-    fi
 fi
 
 cat << 'EOP'