summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2008-02-22 00:20:45 +0000
committerCraig A. Berry <craigberry@mac.com>2008-02-22 00:20:45 +0000
commit9ec7171b93c2f7e007fcbb49144b664695f0d21b (patch)
tree4955fa71b2b55179bafb01711d939eaf575fb181 /pp_sys.c
parent50edf520be9fa4c0e7982006bec3a6939b2f61a7 (diff)
downloadperl-9ec7171b93c2f7e007fcbb49144b664695f0d21b.tar.gz
Following 33291, on VMS we need to use the same prototypes other platforms
use in order to get the do_spawn-related assert macros defined. Based on suggestions by John Malmberg. p4raw-id: //depot/perl@33343
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 75c832f63a..fc57695112 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4165,14 +4165,14 @@ PP(pp_system)
result = 0;
if (PL_op->op_flags & OPf_STACKED) {
SV * const really = *++MARK;
-# if defined(WIN32) || defined(OS2) || defined(__SYMBIAN32__)
+# if defined(WIN32) || defined(OS2) || defined(__SYMBIAN32__) || defined(__VMS)
value = (I32)do_aspawn(really, MARK, SP);
# else
value = (I32)do_aspawn(really, (void **)MARK, (void **)SP);
# endif
}
else if (SP - MARK != 1) {
-# if defined(WIN32) || defined(OS2) || defined(__SYMBIAN32__)
+# if defined(WIN32) || defined(OS2) || defined(__SYMBIAN32__) || defined(__VMS)
value = (I32)do_aspawn(NULL, MARK, SP);
# else
value = (I32)do_aspawn(NULL, (void **)MARK, (void **)SP);