perl 5.003_01: t/lib/filehand.t

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

diff --git a/writemain.SH b/writemain.SH
index e53af7d..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