let docatch() pass the buck when restartop turns out to be null,

making exceptions in BEGIN{} propagate as expected

p4raw-id: //depot/perl@1947

1 files changed, 3 insertions, 4 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 332b24c6e8..c882e9ed66 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2308,15 +2308,14 @@ docatch(OP *o)
     JMPENV_PUSH(ret);
     switch (ret) {
     default:				/* topmost level handles it */
+pass_the_buck:
 	JMPENV_POP;
 	PL_op = oldop;
 	JMPENV_JUMP(ret);
 	/* NOTREACHED */
     case 3:
-	if (!PL_restartop) {
-	    PerlIO_printf(PerlIO_stderr(), "panic: restartop\n");
-	    break;
-	}
+	if (!PL_restartop)
+	    goto pass_the_buck;
 	PL_op = PL_restartop;
 	PL_restartop = 0;
 	/* FALL THROUGH */