This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7a7b997
)
Fix win32 breakage inadvertently introduced by 25889
author
Nicholas Clark
<nick@ccl4.org>
Sun, 30 Oct 2005 16:07:58 +0000
(16:07 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 30 Oct 2005 16:07:58 +0000
(16:07 +0000)
p4raw-id: //depot/perl@25896
perl.h
patch
|
blob
|
blame
|
history
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)