diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-10-30 08:23:29 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-10-30 08:23:29 +0000 |
| commit | 9555a685dbd794b0e9f549335341b2a3b1ea3da5 (patch) | |
| tree | 933cd09924b968254d8106493919ea79a1d15676 /perl.h | |
| parent | e4dba78629baadf544a977b8105c4c2d93050b21 (diff) | |
| download | perl-9555a685dbd794b0e9f549335341b2a3b1ea3da5.tar.gz | |
Replace do_exec() with a macro to call do_exec3() with the extra two
0 arguments. Move the old body to mathoms.c
p4raw-id: //depot/perl@25890
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -5390,8 +5390,15 @@ extern void moncontrol(int); #pragma message disable (mainparm) /* Perl uses the envp in main(). */ #endif +#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(EPOC) && !defined(__SYMBIAN32__) && !defined(MACOS_TRADITIONAL) +#define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION +#endif + #define do_open(g, n, l, a, rm, rp, sf) \ do_openn(g, n, l, a, rm, rp, sf, (SV **) NULL, 0) +#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION +#define do_exec(cmd) do_exec3(cmd,0,0) +#endif /* and finally... */ #define PERL_PATCHLEVEL_H_IMPLICIT |