diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-05-19 17:06:43 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-20 02:23:03 +0000 |
| commit | 8df869cb49e66282cfa0b5ba1758b3da3d21b5c7 (patch) | |
| tree | b64b2071e01383880246b5982794cf7a05d793a4 /vms | |
| parent | 52adf7dc63f8dcc2a6048039e370c3ddca899e4c (diff) | |
| download | perl-8df869cb49e66282cfa0b5ba1758b3da3d21b5c7.tar.gz | |
ithreads for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05111704b90e14567261@[172.16.52.1]>
p4raw-id: //depot/perl@16701
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 4 | ||||
| -rw-r--r-- | vms/vmsish.h | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -3886,7 +3886,7 @@ static void mp_expand_wild_cards(pTHX_ char *item, struct list_item **tail, int *count); -static int background_process(int argc, char **argv); +static int background_process(pTHX_ int argc, char **argv); static void pipe_and_fork(pTHX_ char **cmargv); @@ -4336,7 +4336,7 @@ pipe_and_fork(pTHX_ char **cmargv) } } -static int background_process(int argc, char **argv) +static int background_process(pTHX_ int argc, char **argv) { char command[2048] = "$"; $DESCRIPTOR(value, ""); diff --git a/vms/vmsish.h b/vms/vmsish.h index ddc8b96749..3ae8992e8b 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -506,7 +506,7 @@ struct utimbuf { * help it out a bit. */ # ifndef DONT_MASK_RTL_CALLS -# define sigaction(a,b,c) Perl_my_sigaction(a,b,c) +# define sigaction(a,b,c) Perl_my_sigaction(aTHX_ a,b,c) # endif #endif #ifdef KILL_BY_SIGPRC |