From: Slaven Rezic <slaven@rezic.de>
Date: Mon, 18 Nov 2002 22:50:04 +0000 (+0100)
Subject: Re: [perl #18479] Error when no strict refs in effect
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d7f88ddd9ec1f324b7625b5481fe9d2002a2554;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #18479] Error when no strict refs in effect
Message-ID: <87smxya6pf.fsf@vran.herceg.de>

p4raw-id: //depot/perl@18176
---

diff --git a/pp_ctl.c b/pp_ctl.c
index a91eb38..a43e629 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);