From ff2faa2b5a0809a5124aa90fc1d07503e49a73fb Mon Sep 17 00:00:00 2001
From: Paul Marquess <paul.marquess@btinternet.com>
Date: Thu, 20 Nov 1997 23:12:09 +0000
Subject: Filter patch to toke.c: 	Subject: Tiny core patch for source
 filters

p4raw-id: //depot/perl@273
---
 toke.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index 00825b2e90..de31a41dd3 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;
     }
-- 
cgit v1.2.1