diff options
| author | Dan Sugalski <dan@sidhe.org> | 1999-08-10 09:34:56 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-10 22:39:11 +0000 |
| commit | d28f7c377ae191ca53d9157f124642cf323614a0 (patch) | |
| tree | 6c1a399c1e250f23c69dd5af823906a52a0e01c7 /vms/writemain.pl | |
| parent | 6da84e39ed5bfdbbe350321e38b2730554d2576c (diff) | |
| download | perl-d28f7c377ae191ca53d9157f124642cf323614a0.tar.gz | |
Patches needed to get _60 building with
To: vmsperl@perl.org, perl5-porters@perl.org,
sarathy@activestate.com, bailey@newman.upenn.edu
threads on VMS
Message-ID: <Pine.LNX.4.10.9908101631030.18266-100000@tuatha.sidhe.org>
p4raw-id: //depot/cfgperl@3955
Diffstat (limited to 'vms/writemain.pl')
| -rw-r--r-- | vms/writemain.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/writemain.pl b/vms/writemain.pl index b08bf1d924..1843b30206 100644 --- a/vms/writemain.pl +++ b/vms/writemain.pl @@ -34,7 +34,7 @@ if (!$ok) { print OUT <<'EOH'; static void -xs_init() +xs_init(pTHX) { EOH @@ -50,7 +50,7 @@ if (@exts) { foreach $ext (@exts) { my($subname) = $ext; $subname =~ s/::/__/g; - print OUT "extern void boot_${subname} (CV* cv);\n" + print OUT "extern void boot_${subname} (pTHX_ CV* cv);\n" } # May not actually be a declaration, so put after other declarations print OUT " dXSUB_SYS;\n"; |