dont execv

Perl · Apr 18, 2021 · b02bbc5 · b02bbc5
1 parent 63ec9f8
commit b02bbc5
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/toke.c b/toke.c
@@ -7199,9 +7199,11 @@ yyl_fake_eof(pTHX_ U32 fake_eof, bool bof, char *s)
                 else
                     newargv = PL_origargv;
                 newargv[0] = ipath;
+#if !TARGET_OS_IPHONE
                 PERL_FPU_PRE_EXEC
                 PerlProc_execv(ipath, EXEC_ARGV_CAST(newargv));
                 PERL_FPU_POST_EXEC
+#endif
                 Perl_croak(aTHX_ "Can't exec %s", ipath);
             }
             if (d) {