1 files changed, 3 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 26653a3a49..e76d83afdf 100644
--- a/perl.c
+++ b/perl.c
@@ -2971,8 +2971,10 @@ read_e_script(int idx, SV *buf_sv, int maxlen)
     p  = SvPVX(PL_e_script);
     nl = strchr(p, '\n');
     nl = (nl) ? nl+1 : SvEND(PL_e_script);
-    if (nl-p == 0)
+    if (nl-p == 0) {
+	filter_del(read_e_script);
 	return 0;
+    }
     sv_catpvn(buf_sv, p, nl-p);
     sv_chop(PL_e_script, nl);
     return 1;