From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Oct 2005 16:07:58 +0000 (+0000)
Subject: Fix win32 breakage inadvertently introduced by 25889
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=711aba4c46216686b303e46f6e8b7dfac7b2420f;p=p5sagit%2Fp5-mst-13.2.git

Fix win32 breakage inadvertently introduced by 25889

p4raw-id: //depot/perl@25896
---

diff --git a/perl.h b/perl.h
index 7e3b3ee..8427328 100644
--- 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)