This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Replace do_aexec() with a macro to call do_aexec5() with the two extra
[perl5.git] / proto.h
diff --git a/proto.h b/proto.h
index 177a8c1..090f5f6 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -365,9 +365,9 @@ PERL_CALLCONV OP*   Perl_die(pTHX_ const char* pat, ...)
 PERL_CALLCONV OP*      Perl_vdie(pTHX_ const char* pat, va_list* args);
 PERL_CALLCONV OP*      Perl_die_where(pTHX_ const char* message, STRLEN msglen);
 PERL_CALLCONV void     Perl_dounwind(pTHX_ I32 cxix);
-PERL_CALLCONV bool     Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp)
+/* PERL_CALLCONV bool  Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp)
                        __attribute__nonnull__(pTHX_2)
-                       __attribute__nonnull__(pTHX_3);
+                       __attribute__nonnull__(pTHX_3); */
 
 PERL_CALLCONV bool     Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag)
                        __attribute__nonnull__(pTHX_2)