diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 20:56:58 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-07-18 20:56:58 +0000 |
| commit | b28d0864af067162e2d26cc66b6b8acb6d3cddc8 (patch) | |
| tree | 1d4129f7ceb5b0a2c9dd4532337b5ea32432988c /win32 | |
| parent | 62a559b8665e0cfb74dd6a69c48e22412fbdf175 (diff) | |
| download | perl-b28d0864af067162e2d26cc66b6b8acb6d3cddc8.tar.gz | |
PL_ scheme Builds under Minw32 - some SEGFAULT snags
p4raw-id: //depot/ansiperl@1537
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/perllib.c | 2 | ||||
| -rw-r--r-- | win32/win32.c | 8 | ||||
| -rw-r--r-- | win32/win32.h | 12 |
3 files changed, 11 insertions, 11 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index ab613bd9c9..d1d942c495 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -32,7 +32,7 @@ RunPerl(int argc, char **argv, char **env, void *iosubsystem) if (!(my_perl = perl_alloc())) return (1); perl_construct( my_perl ); - perl_destruct_level = 0; + PL_perl_destruct_level = 0; exitstatus = perl_parse( my_perl, xs_init, argc, argv, env); if (!exitstatus) { diff --git a/win32/win32.c b/win32/win32.c index 4891c2ea7a..1f7883bc52 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -501,13 +501,13 @@ do_aspawn(void *vreally, void **vmark, void **vsp) if (flag != P_NOWAIT) { if (status < 0) { - if (dowarn) + if (PL_dowarn) warn("Can't spawn \"%s\": %s", argv[0], strerror(errno)); status = 255 * 256; } else status *= 256; - statusvalue = status; + PL_statusvalue = status; } Safefree(argv); return (status); @@ -588,7 +588,7 @@ do_spawn2(char *cmd, int exectype) } if (exectype != EXECF_SPAWN_NOWAIT) { if (status < 0) { - if (dowarn) + if (PL_dowarn) warn("Can't %s \"%s\": %s", (exectype == EXECF_EXEC ? "exec" : "spawn"), cmd, strerror(errno)); @@ -596,7 +596,7 @@ do_spawn2(char *cmd, int exectype) } else status *= 256; - statusvalue = status; + PL_statusvalue = status; } return (status); } diff --git a/win32/win32.h b/win32/win32.h index 76052ed8ee..184372dffb 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -315,14 +315,14 @@ struct interp_intern { #endif }; -#define w32_perlshell_tokens (sys_intern.w32_perlshell_tokens) -#define w32_perlshell_vec (sys_intern.w32_perlshell_vec) -#define w32_perlshell_items (sys_intern.w32_perlshell_items) -#define w32_fdpid (sys_intern.w32_fdpid) +#define w32_perlshell_tokens (PL_sys_intern.w32_perlshell_tokens) +#define w32_perlshell_vec (PL_sys_intern.w32_perlshell_vec) +#define w32_perlshell_items (PL_sys_intern.w32_perlshell_items) +#define w32_fdpid (PL_sys_intern.w32_fdpid) #ifndef USE_RTL_WAIT -# define w32_num_children (sys_intern.w32_num_children) -# define w32_child_pids (sys_intern.w32_child_pids) +# define w32_num_children (PL_sys_intern.w32_num_children) +# define w32_child_pids (PL_sys_intern.w32_child_pids) #endif /* |