dont change embed.h

Perl · Aug 29, 2021 · a60cf32 · a60cf32
1 parent 5405eb5
commit a60cf32
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/pp_sys.c b/pp_sys.c
@@ -31,11 +31,6 @@
 #include "perl.h"
 #include "time64.h"
 
-#if TARGET_OS_IPHONE
-bool Perl_do_exec_iphone(pTHX_ const char *cmd) { return 0; }
-bool Perl_do_exec3_iphone(pTHX_ const char *cmd, int fd, int flag) { return 0; }
-#endif
-
 #ifdef I_SHADOW
 /* Shadow password support for solaris - pdo@cs.umd.edu
  * Not just Solaris: at least HP-UX, IRIX, Linux.
@@ -4523,6 +4518,12 @@ PP(pp_exec)
     dSP; dMARK; dORIGMARK; dTARGET;
     I32 value;
 
+#if TARGET_OS_IPHONE
+    value = 1;
+    XPUSHi(value);
+    RETURN;
+#endif
+
     if (TAINTING_get) {
         TAINT_ENV();
         while (++MARK <= SP) {