Fix for command line use of source filters

Message-Id: <9808070856.AA28065@claudius.bfsec.bt.co.uk> p4raw-id: //depot/maint-5.005/perl@1754
rurban · Aug 7, 1998 · 7dfe3f6 · 7dfe3f6
1 parent 322422d
commit 7dfe3f6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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;