This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
I infer that change 25891 as-is would break OS2. This should fix it.
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 8427328..10fcd4b 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5402,8 +5402,10 @@ extern void moncontrol(int);
 /* do_exec is a real function implemented in a platform specific file.  */
 #  define do_exec                      Perl_do_exec
 #endif
-#ifndef OS2
-#define do_aexec(really, mark,sp)      do_aexec5(really, mark, sp, 0, 0)
+#ifdef OS2
+#  define do_aexec                     Perl_do_aexec
+#else
+#  define do_aexec(really, mark,sp)    do_aexec5(really, mark, sp, 0, 0)
 #endif
 
 /* and finally... */