projects
/
p5sagit/p5-mst-13.2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
(parent:
efdc43f
)
Revert "show -E in error message when called with -E"
Rafael Garcia-Suarez [Sun, 25 Jan 2009 15:54:16 +0000 (16:54 +0100)]
This reverts commit
efdc43f5015438920ce11f05539e55cb02940377
.
perl.c
patch
|
blob
|
blame
|
history
diff --git
a/perl.c
b/perl.c
index
c6c856d
..
00d402a
100644
(file)
--- 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 = (PL_minus_E ? savepvs("-E") : savepvs( "-e" ));
+ PL_origfilename = savepvs("-e");
}
else {
/* if find_script() returns, it returns a malloc()-ed value */