diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-03-24 11:49:04 +0000 |
|---|---|---|
| committer | Charles Bailey <bailey@genetics.upenn.edu> | 1996-03-24 11:49:04 +0000 |
| commit | 9be963dd7d6cf65876fad5b241f1fa56c69a27f8 (patch) | |
| tree | 67f25465f3d9cbe370dda6c05804044054c0fe3d | |
| parent | bf109933c90fdeb1af1fb137cf706593dd6a866b (diff) | |
| download | perl-9be963dd7d6cf65876fad5b241f1fa56c69a27f8.tar.gz | |
Add initialization macro for OS/2
| -rw-r--r-- | vms/writemain.pl | 1 | ||||
| -rw-r--r-- | writemain.SH | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/vms/writemain.pl b/vms/writemain.pl index cd4c534ad3..eb059f810a 100644 --- a/vms/writemain.pl +++ b/vms/writemain.pl @@ -36,6 +36,7 @@ print OUT <<'EOH'; static void xs_init() { + dXSUB_SYS; EOH if (@ARGV) { diff --git a/writemain.SH b/writemain.SH index e53af7d7de..4884a387a1 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 |