summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-01-25 16:54:16 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-01-25 16:54:16 +0100
commit8afc33d62997aaa3a5e8c389cb908f2d4b3cd31f (patch)
tree5cd961e53fb5d9ef0ed75705a6bcc04760bdca57 /perl.c
parentefdc43f5015438920ce11f05539e55cb02940377 (diff)
downloadperl-8afc33d62997aaa3a5e8c389cb908f2d4b3cd31f.tar.gz
Revert "show -E in error message when called with -E"
This reverts commit efdc43f5015438920ce11f05539e55cb02940377.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index c6c856d75a..00d402aa83 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 = (PL_minus_E ? savepvs("-E") : savepvs( "-e" ));
+ PL_origfilename = savepvs("-e");
}
else {
/* if find_script() returns, it returns a malloc()-ed value */