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

diff --git a/perl.c b/perl.c
index 26653a3..e76d83a 100644 (file)
--- 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;