Minor fix/speedup to util.c:fbm_instr:

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

diff --git a/writemain.SH b/writemain.SH
index f07c682..c428383 100644 (file)
--- a/writemain.SH
+++ b/writemain.SH
@@ -70,11 +70,12 @@ cat << 'EOP'
 static void
 xs_init()
 {
-  dXSUB_SYS;
 EOP
 
 if test X"$args" != "X" ; then
     echo "    char *file = __FILE__;"
+    echo "    dXSUB_SYS;"
+
     ai=''
 
     for ext in $args ; do