diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-04-17 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-17 00:00:00 +0000 |
| commit | 96e4d5b14cf2dfb0235faa8bc3f701c15b15bb05 (patch) | |
| tree | 573ae82e0e6a92c453a5b5cec1b10dc2f99362fe /vms/writemain.pl | |
| parent | 6877a1cf6ff3f0f711772ea75e579e2e7219cc46 (diff) | |
| download | perl-96e4d5b14cf2dfb0235faa8bc3f701c15b15bb05.tar.gz | |
[inseparable changes from match from perl-5.003_97e to perl-5.003_97f]
CORE LANGUAGE CHANGES
Subject: New operator systell()
From: Chip Salzenberg <chip@perl.com>
Files: doio.c ext/Opcode/Opcode.pm keywords.pl opcode.pl pod/perldelta.pod pod/perldiag.pod pod/perlfunc.pod pp_sys.c t/op/sysio.t toke.c
Subject: Allow constant sub to be optimized when called with parens
From: Chip Salzenberg <chip@perl.com>
Files: toke.c
Subject: Make {,un}pack fail on invalid pack types
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldiag.pod pp.c
CORE PORTABILITY
Subject: Fix bitwise ops and {,un}pack() on Cray CPUs
From: Chip Salzenberg <chip@perl.com>
Files: pp.c
Subject: VMS update
From: Charles Bailey <bailey@hmivax.humgen.upenn.edu>
Files: lib/Cwd.pm lib/File/Path.pm lib/FindBin.pm vms/perly_c.vms vms/vms.c vms/writemain.pl
Subject: Win32 update (three patches)
From: Gurusamy Sarathy <gsar@engin.umich.edu>
Files: lib/Cwd.pm lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MM_Win32.pm lib/File/Basename.pm win32/Makefile win32/makedef.pl win32/perllib.c win32/win32.c win32/win32iop.h
DOCUMENTATION
Subject: Document size restrictions for packed integers
From: Jarkko Hietaniemi <Jarkko.Hietaniemi@cc.hut.fi>
Files: pod/perlfunc.pod
LIBRARY AND EXTENSIONS
Subject: Fix bug in Opcode when (maxo & 15) > 8
From: Chip Salzenberg <chip@perl.com>
Files: ext/Opcode/Makefile.PL ext/Opcode/Opcode.pm ext/Opcode/Opcode.xs
Diffstat (limited to 'vms/writemain.pl')
| -rw-r--r-- | vms/writemain.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/vms/writemain.pl b/vms/writemain.pl index 5f1c8bf0d3..a502d6131e 100644 --- a/vms/writemain.pl +++ b/vms/writemain.pl @@ -36,7 +36,6 @@ print OUT <<'EOH'; static void xs_init() { - dXSUB_SYS; EOH if (@ARGV) { @@ -53,6 +52,8 @@ if (@exts) { $subname =~ s/::/__/g; print OUT "extern void boot_${subname} _((CV* cv));\n" } + # May not actually be a declaration, so put after other declarations + print OUT " dXSUB_SYS;\n"; foreach $ext (@exts) { my($subname) = $ext; $subname =~ s/::/__/g; |