From 9be963dd7d6cf65876fad5b241f1fa56c69a27f8 Mon Sep 17 00:00:00 2001
From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 24 Mar 1996 11:49:04 +0000
Subject: [PATCH] Add initialization macro for OS/2

---
 vms/writemain.pl | 1 +
 writemain.SH     | 1 +
 2 files changed, 2 insertions(+)

diff --git a/vms/writemain.pl b/vms/writemain.pl
index cd4c534ad38..eb059f810a7 100644
--- a/vms/writemain.pl
+++ b/vms/writemain.pl
@@ -36,6 +36,7 @@
 static void
 xs_init()
 {
+    dXSUB_SYS;
 EOH
 
 if (@ARGV) {
diff --git a/writemain.SH b/writemain.SH
index e53af7d7de7..4884a387a17 100644
--- 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