diff options
author | Renée Bäcker <renee.baecker@smart-websolutions.de> | 2009-01-12 11:39:11 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-04-11 23:14:01 +0100 |
commit | b1869f15d1a478b241e76c8fb567de3a215a54bb (patch) | |
tree | 86a04514bedc9243f9178a28583328224943893b /perl.c | |
parent | 4f5d78ebd1ac3e6dfcf0151a7332f2144b4fadac (diff) | |
download | perl-b1869f15d1a478b241e76c8fb567de3a215a54bb.tar.gz |
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
(cherry picked from commit efdc43f5015438920ce11f05539e55cb02940377)
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3644,7 +3644,7 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch, SV *sv, 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 */ |