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 | 4e3129d241bb7e17309fdf77b39e0428c98c82e6 (patch) | |
| tree | 6c1a399c1e250f23c69dd5af823906a52a0e01c7 /ext/DynaLoader | |
| parent | 6905cc9760541504c0cf3b556998c9c1cd24e8ab (diff) | |
| download | perl-4e3129d241bb7e17309fdf77b39e0428c98c82e6.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 'ext/DynaLoader')
| -rw-r--r-- | ext/DynaLoader/dl_vms.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/DynaLoader/dl_vms.xs b/ext/DynaLoader/dl_vms.xs index d83d532c50..1024c41f96 100644 --- a/ext/DynaLoader/dl_vms.xs +++ b/ext/DynaLoader/dl_vms.xs @@ -112,6 +112,7 @@ dl_set_error(sts,stv) vmssts stv; { vmssts vec[3]; + dTHX; vec[0] = stv ? 2 : 1; vec[1] = sts; vec[2] = stv; @@ -121,6 +122,7 @@ dl_set_error(sts,stv) static unsigned int findsym_handler(void *sig, void *mech) { + dTHX; unsigned long int myvec[8],args, *usig = (unsigned long int *) sig; /* Be paranoid and assume signal vector passed in might be readonly */ myvec[0] = args = usig[0] > 10 ? 9 : usig[0] - 1; |