From: Paul Marquess <paul.marquess@btinternet.com>
Date: Fri, 7 Aug 1998 09:56:01 +0000 (+0100)
Subject: Fix for command line use of source filters
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7dfe3f660cb120466e9c6f9f1b8b1c931d114062;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;