summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2018-01-01 10:10:33 -0600
committerCraig A. Berry <craigberry@mac.com>2018-01-01 15:51:16 -0600
commit8e7c2faafb74d3b07e8a5818608dfe065e361604 (patch)
tree9689ebd6adcfdb4340075665b029ce482402bb6f /pp_sys.c
parent759b442cd504fd04e125d71b981f7092ec3fbea1 (diff)
downloadperl-8e7c2faafb74d3b07e8a5818608dfe065e361604.tar.gz
Reenable numeric first argument of system() on VMS.
This was broken in 64def2aeaeb63f92dadc6dfa334, and fixed for Win32 only in 8fe3452cc6ac7af8c08. But VMS also uses a numeric first argument to system() as a flag indicating spawn without waiting for completion.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 0c9147bc4e..5154b9baa8 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4375,7 +4375,7 @@ PP(pp_system)
STRLEN len;
char *pv;
SvGETMAGIC(origsv);
-#ifdef WIN32
+#if defined(WIN32) || defined(__VMS)
/*
* Because of a nasty platform-specific variation on the meaning
* of arguments to this op, we must preserve numeric arguments