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 */