From: Renée Bäcker <renee.baecker@smart-websolutions.de>
Date: Mon, 12 Jan 2009 10:39:11 +0000 (+0100)
Subject: show -E in error message when called with -E
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=efdc43f5015438920ce11f05539e55cb02940377;hp=7222c10abc8865471c9788388dbc9b84939ca704;p=p5sagit%2Fp5-mst-13.2.git

show -E in error message when called with -E

Currently, perl shows -e if an error occurs even it is called with -E.
The attached patch changes this...

Current behaviour:
D:\Perl510\bin>perl.exe -E "say ->"
syntax error at -e line 1, at EOF
Execution of -e aborted due to compilation errors.

With patch:
D:\Perl510\bin>perl.exe -E "say ->"
syntax error at -E line 1, at EOF
Execution of -E aborted due to compilation errors.

Cheers,
Renee
---

diff --git a/perl.c b/perl.c
index 00d402a..c6c856d 100644
--- a/perl.c
+++ b/perl.c
@@ -3601,7 +3601,7 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch,
     PERL_ARGS_ASSERT_OPEN_SCRIPT;
 
     if (PL_e_script) {
-	PL_origfilename = savepvs("-e");
+	PL_origfilename = (PL_minus_E ? savepvs("-E") : savepvs( "-e" ));
     }
     else {
 	/* if find_script() returns, it returns a malloc()-ed value */