In Perl_eval_pv rethrow error via croak_sv()

This would allow to rethrow object exceptions.

1 files changed, 1 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index f2c87f4937..69e3efcd70 100644
--- a/perl.c
+++ b/perl.c
@@ -3231,8 +3231,7 @@ Perl_eval_pv(pTHX_ const char *p, I32 croak_on_error)
     if (croak_on_error) {
 	SV * const errsv = ERRSV;
 	if(SvTRUE_NN(errsv))
-	    /* replace with croak_sv? */
-	    Perl_croak_nocontext("%s", SvPV_nolen_const(errsv));
+            croak_sv(errsv);
     }
 
     return sv;