This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION earlier in perl.h
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 10 Nov 2005 15:10:42 +0000 (15:10 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 10 Nov 2005 15:10:42 +0000 (15:10 +0000)
(that is, before embed.h, that uses this symbol, is included)

p4raw-id: //depot/perl@26077

perl.h

diff --git a/perl.h b/perl.h
index d3eef2c..172f96b 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -819,6 +819,10 @@ int usleep(unsigned int);
 #define PERL_USES_PL_PIDSTATUS
 #endif
 
 #define PERL_USES_PL_PIDSTATUS
 #endif
 
+#if !defined(OS2) && !defined(WIN32) && !defined(DJGPP) && !defined(EPOC) && !defined(__SYMBIAN32__) && !defined(MACOS_TRADITIONAL)
+#define PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
+#endif
+
 /* Cannot include embed.h here on Win32 as win32.h has not 
    yet been included and defines some config variables e.g. HAVE_INTERP_INTERN
  */
 /* Cannot include embed.h here on Win32 as win32.h has not 
    yet been included and defines some config variables e.g. HAVE_INTERP_INTERN
  */
@@ -5390,10 +5394,6 @@ extern void moncontrol(int);
 #pragma message disable (mainparm) /* Perl uses the envp in main(). */
 #endif
 
 #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_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