diff options
| author | Andy Broad <andy@broad.ology.org.uk> | 2015-09-13 14:53:59 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-09-16 07:44:31 -0400 |
| commit | ea34f6bdec386db6b5e951fae85f430965078a86 (patch) | |
| tree | 3c1548f60453e691f5111f305fc886b746190a84 /pp_sys.c | |
| parent | a843b009aecc0fdd377763bdaee3521fc77b160c (diff) | |
| download | perl-ea34f6bdec386db6b5e951fae85f430965078a86.tar.gz | |
amigaos4: use #ifdef/ifndef __amigaos4__ when feasible
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -4321,7 +4321,7 @@ PP(pp_system) PERL_FLUSHALL_FOR_CHILD; #if (defined(HAS_FORK) || defined(__amigaos4__)) && !defined(VMS) && !defined(OS2) || defined(PERL_MICRO) { -#if defined(__amigaos4__) +#ifdef __amigaos4__ struct UserData userdata; pthread_t proc; #else @@ -4336,7 +4336,7 @@ PP(pp_system) if (PerlProc_pipe(pp) >= 0) did_pipes = 1; -#if defined(__amigaos4__) +#ifdef __amigaos4__ amigaos_fork_set_userdata(aTHX_ &userdata, did_pipes, @@ -4416,7 +4416,7 @@ PP(pp_system) if (n != sizeof(int)) DIE(aTHX_ "panic: kid popen errno read, n=%u", n); errno = errkid; /* Propagate errno from kid */ -#if defined(__amigaos4__) +#ifdef __amigaos4__ /* The pipe always has something in it * so n alone is not enough. */ if (errno > 0) |