Use Perl_croak() rather than DIE() in S_doeval() because "DIE()"

becomes "return Perl_die()" and Perl_die() returns an OP*, which
isn't appropriate to return from S_doeval.

p4raw-id: //depot/perl@31586

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index b16d97e388..9bbccd6fcc 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2950,8 +2950,8 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
 	    const SV * const nsv = cx->blk_eval.old_namesv;
 	    (void)hv_store(GvHVn(PL_incgv), SvPVX_const(nsv), SvCUR(nsv),
                           &PL_sv_undef, 0);
-	    DIE(aTHX_ "%sCompilation failed in require",
-		*msg ? msg : "Unknown error\n");
+	    Perl_croak(aTHX_ "%sCompilation failed in require",
+		       *msg ? msg : "Unknown error\n");
 	}
 	else if (startop) {
 	    POPBLOCK(cx,PL_curpm);