1 files changed, 2 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index b0c7a9e98c..d55acb1280 100644
--- a/doio.c
+++ b/doio.c
@@ -1053,7 +1053,8 @@ Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
 }
 
 bool
-do_aexec5(SV *really, register SV **mark, register SV **sp, int fd, int do_report)
+Perl_do_aexec5(pTHX_ SV *really, register SV **mark, register SV **sp,
+	       int fd, int do_report)
 {
     register char **a;
     char *tmps;