diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-07-19 13:30:14 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-07-24 10:22:22 +0200 |
| commit | 875ca36f3bad1dcbb9024c8db31c337e1dd09100 (patch) | |
| tree | fa05da5520fdb71dadc15192a24ea785b429f274 /embed.h | |
| parent | bf4d151523534b04dc46062538c22f81352449b0 (diff) | |
| download | perl-875ca36f3bad1dcbb9024c8db31c337e1dd09100.tar.gz | |
Perl_my_p{open,close} do not exist under PERL_IMPLICIT_SYS.
PERL_IMPLICIT_SYS only builds on Win32.
Correct embed.fnc to reflect the reality.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -302,8 +302,6 @@ #define my_failure_exit() Perl_my_failure_exit(aTHX) #define my_fflush_all() Perl_my_fflush_all(aTHX) #define my_fork Perl_my_fork -#define my_pclose(a) Perl_my_pclose(aTHX_ a) -#define my_popen(a,b) Perl_my_popen(aTHX_ a,b) #define my_popen_list(a,b,c) Perl_my_popen_list(aTHX_ a,b,c) #define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b) #define my_socketpair Perl_my_socketpair @@ -703,6 +701,10 @@ #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) #define my_chsize(a,b) Perl_my_chsize(aTHX_ a,b) #endif +#if !defined(PERL_IMPLICIT_SYS) +#define my_pclose(a) Perl_my_pclose(aTHX_ a) +#define my_popen(a,b) Perl_my_popen(aTHX_ a,b) +#endif #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY)) #define my_bcopy Perl_my_bcopy #endif |