Re: [perl #18479] Error when no strict refs in effect

Message-ID: <87smxya6pf.fsf@vran.herceg.de>

p4raw-id: //depot/perl@18176

1 files changed, 6 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index a91eb3810a..a43e629e2d 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2732,6 +2732,12 @@ S_doeval(pTHX_ int gimme, OP** startop)
 	    Perl_croak(aTHX_ "%sCompilation failed in regexp",
 		       (*msg ? msg : "Unknown error\n"));
 	}
+	else {
+	    char* msg = SvPVx(ERRSV, n_a);
+	    if (!*msg) {
+	        sv_setpv(ERRSV, "Compilation error");
+	    }
+	}
 	RETPUSHUNDEF;
     }
     CopLINE_set(&PL_compiling, 0);