avoid "Callback called exit" error on intentional exit()

p4raw-id: //depot/perl@4609

1 files changed, 1 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index b1f71a3819..ec7dfb884a 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2394,6 +2394,7 @@ PP(pp_exit)
 	    anum = 0;
 #endif
     }
+    PL_exit_flags |= PERL_EXIT_EXPECTED;
     my_exit(anum);
     PUSHs(&PL_sv_undef);
     RETURN;