From: Paul Marquess <paul.marquess@btinternet.com>
Date: Thu, 20 Nov 1997 23:12:09 +0000 (+0000)
Subject: Filter patch to toke.c:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff2faa2b5a0809a5124aa90fc1d07503e49a73fb;p=p5sagit%2Fp5-mst-13.2.git

Filter patch to toke.c:
	Subject: Tiny core patch for source filters

p4raw-id: //depot/perl@273
---

diff --git a/toke.c b/toke.c
index 00825b2..de31a41 100644
--- a/toke.c
+++ b/toke.c
@@ -1109,9 +1109,8 @@ filter_del(filter_t funcp)
     if (!rsfp_filters || AvFILL(rsfp_filters)<0)
 	return;
     /* if filter is on top of stack (usual case) just pop it off */
-    if (IoDIRP(FILTER_DATA(0)) == (void*)funcp){
-	/* sv_free(av_pop(rsfp_filters)); */
-	sv_free(av_shift(rsfp_filters));
+    if (IoDIRP(FILTER_DATA(AvFILL(rsfp_filters))) == (void*)funcp){
+	sv_free(av_pop(rsfp_filters));
 
         return;
     }