This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix win32 breakage inadvertently introduced by 25889
authorNicholas Clark <nick@ccl4.org>
Sun, 30 Oct 2005 16:07:58 +0000 (16:07 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 30 Oct 2005 16:07:58 +0000 (16:07 +0000)
p4raw-id: //depot/perl@25896

perl.h

diff --git a/perl.h b/perl.h
index 7e3b3ee..8427328 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5397,7 +5397,10 @@ extern void moncontrol(int);
 #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)
+#  define do_exec(cmd)                 do_exec3(cmd,0,0)
+#else
+/* do_exec is a real function implemented in a platform specific file.  */
+#  define do_exec                      Perl_do_exec
 #endif
 #ifndef OS2
 #define do_aexec(really, mark,sp)      do_aexec5(really, mark, sp, 0, 0)